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1 ACCELERATEUR 

Gagnez 360 %de vitesse 
d'execution des calculs et des graphiques 
sur tous les programmes. Une simple 
operation. Mettez la carte dans le 
connecteur et votre APPLE II et He 
passent a la vitesse superieure. 






\MEMOCARTE 

Gagnez de la vitesse en acces 
disque en simulant un disque ultra- 
rapide sur les nouvelles memocartes 
geantes, extensible de 64 K a 512 K. 
Les memocartes s'utilisent aussi en 
extension de memoire centrale pour 
Visicalc, Magicalc, etc... 



MICROBUFFER 

Gagnez du temps en liberant 
votre APPLE pendant l'impression. 
Microbuffer (de 16 K a 256 K) prend en 
charge mstantanement toutes vos 
donnees et les envoie a l'imprimante, 
au fur et a mesure de ses besoins. 
Ainsi votre APPLE est immediatement 
a votre disposition. 




1ULTRATERM 

Gagnez du temps de travail sur 
les calcs et les textes en obtenant grace 
a Ultraterm une vision panoramique, 
jusqu'a 48 lignes ou 160 colonnes 
a volonte. 



Grace a une large gamme de peripheriques et de programme d'avant-garde 
importes et distribues par BIP, vous pouvez maintenant multiplier les possibilites 
de votre APPLE. Demandez-les a votre revendeur. 



L'INFORMATIQUE PERSONNALISEE 22, RUE JOSEPH-DIJON, 75018 PARIS. 
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3LIVR 



POUR VOTRE APPLE 




Vous avez achete le livre "La comptabilite sur Apple II" de Serge et Gerard Llillio, etvous n'avez 
pas le temps necessaire pour taper vous-meme les programmes survotre Apple. Dans ce cas, 
cette disquette vous est tout particulierement destinee ! 

L'ensemble des programmes presentes ici constitue la replique exacte des listings proposes 
dans I'ouvrage, a -I'exception des ordres pour imprimante. 

Cette disquette doit etre consideree comme une aide au lecteur et non comme un progiciel de 
comptabilite. Ainsi, les trois exemples de libelles cites en annexe dans le livre et ci-inclus, 
doivent etre envisages en tant que points de depart pour une utilisation plus personnels. 
La disquette seule: 185,00 FF/1425,00FB 

Le livre decrit un ensemble de programmes de comptabilite generale en Basic pour petites entreprises, professions libe- 
rals, artisans, commercants. Avec edition des livres-journal. grands livres, balances, bilans. Avec calcul des ratios. Pro- 
gramme special intetessant I'adaptation et la personnalisation du plan comptable. Et... quelques "ticelles" pour Apple II. 

Le livre seul : 1 02,00 FF / 785,00 FB 



■ 



Voici une disquette qui permet aux lecteurs de "Visicalc sur Apple" d'acceder directement a tous 
les tableaux Visicalc presentes dans le livre. lis trouveront sur cette disquette la replique exacte 
des tableaux presentes dans I'ouvrage. S'y ajoute un programme en Basic permettant I'impres- 
sion des formules d'un tableau, sur une ou deux colonnes, dans I'ordre de A1 vers le bas a droite 
du tableau. 

Attention: cette disquette ne peut etre utilisee sans la disquette maitresse Visicalc. 
La disquette seule: 185,00 FF/ 1425,00 FB 

Apres une presentation progressive du modele Visicalc, I'ouvrage presente un ensemble d'exemples d'appliations, 
echeancier de remboursement, teuille d'imp8t, gestion de copropriete, paye. facturation..., permettant d'introduire les 
dilterentes instructions et astuces d'utilisation. 

Le livre seul : 82,00 FF / 635,00 FB 



MATHEMAlj. 

' © ,„sl 



Vous avez achete le livre "Mathematiques et statistiques", et vous n'avez pas le temps de taper 
vous-meme les programmes survotre Apple? Alors cette disquette vous est tout particuliere- 
ment destinee! 

L'ensemble des programmes presentes ici constitue la replique exacte des listings proposes 
dans I'ouvrage. 

Cette disquette doit etre consideree comme une aide au lecteur et non comme un progiciel de 
mathematiques. 

La disquette seule: 185,00 FF/1425,00FB 

Le livre decrit un ensemble de programmes en Basic de mathematiques et de statistiques. niveau superieur. Chaque pro- 
bleme trade comporte une introduction numerique. un expose de la technique de programmation utilisee. un organi- 
gramme detaille et un programme complet suivi d'un exemple d'utilisation. Les programmes sont structures de maniere 
a permettre une insertion dans des programmes plus importants. 
Le livre seul : 92,00 FF / 710,00 FB 
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Pour son neuviime numiro, Pom's passe de 68 a 76 pages. Le prix de la revue augmente aussi, 
passant de 35 a 40 francs le numiro, ce qui fait 14% d 'augmentation en deux ans. Pendant ce temps, 
nos frais postaux ont augments de plus de 30% et le papier de plus de 50%; comme vous pouvez le 
constater, nous continuons a nous efforcer de vous donner le meilleur rapport performance/prix. Dans le 
courant de 1'annee prochaine, nous passerons a une frequence de parution bimestrielle. 

Comme preuve de la reconnaissance croissante de Pom's par ses pairs, nous avons le plaisir de vous 
annoncer qu' Apple Orchard, 1'une des principales revues amiricaines pour Appleomanes, va publier des 
articles parus dans Pom's. Que diront les lecteurs qui nous accusent parfois (a tort) de copier les revues 
amiricaines ? 

De nombreux articles qui nous sont proposes ces temps-ci riutilisent des programmes dija publiis dans 
Pom's. Cela nous pose un probleme : nous ne pouvons & ces occasions republier les programmes ou 
parties de programmes concemies si elles sont trop longues. Sinon, on finirait par se croire en lisant 
Pom's comme devant la tile, ou les mimes films repassent riguliirement ... Nous avons par consiquent 
dicidi, pour iviter de top friquentes redondances, de nous limiter a citer 1'origine des programmes 
antirieurement publiis, quand Us sont utilisis dans un nouvel article. 

Certains lecteurs ont vu arriver chez eux des Pom's avec une disquette d'accompagnement icrasie par 
des "charges postales excessives". Avant de nous renvoyer ces disquettes, vous pouvez dicouper l'enve- 
loppe et mettre la disquette "toute nue" dans le lecteur; en effet, 1'enveloppe n'est qu'une protection, et 
l'on peut s'en passer. Ce petit remide nous ivitera, aux uns comme aux autres, de perdre du temps, et 
il permet presque toujours de ricupirer les informations grace a une copie sur une autre disquette 
(habillie cette fois !). 

Dans ce nouveau numiro, vous trouverez encore plein de programmes : une fois de plus, la disquette 
d'accompagnement est pleine i craquer. Gerard Hisleur vous propose un programme de traitement de 
texte en BASIC, qui prisente un intirit a la fois pratique et pidagogique. Michel Lafon propose un 
programme en Pascal de saisie de donnies en plusieurs pages, avec une prisentation de type Visicalc. 
Joel Lecoeur vous offre un jeu original, tansformant une image graphique haute risolution en puzzle 
que vous devez reconstituer. 

Denis Sureau montre comment fusionner deux shapes puis, dans un autre programme, crie un ordre 
d'impression tres ivolui pour 1'icriture de longues chaines. Dans le domaine du graphique, Jacques 
Duma propose un editeur graphique haute risolution, concurrengant amicalement 1'editeur du Pilot. 
Thierry Le Tallec disassemble la PROM P5A, un bel exercice de style qu'appricieront les spicialistes. 
II nous donne aussi un programme tes original permettant d'imprimer une page haute risolution avec 
une imprimante non graphique ! 

Encore une contribution importante de Gerard Michel, avec un exemple complet de gestion de fichier 
directement par RWTS. Olivier Hera , quant a lui, ne s'est pas endormi sur ses lauriers : il propose une 
comparaison des Opcodes des principaux assembleurs, et un programme bien sympathique permettant 
de mettre dans un tableau le catalogue d'une disquette. Vous pouvez facilement 1'adapter pour imprimer 
vos catalogues en deux ou trois colonnes, ou l'enrichir pour girer le fichier de toutes vos disquettes. 

Enfin, d' autres contributions qui, pour itre plus courtes, n'en sont pas moins intiressantes. Jean-F. 
Schwartz nous aide a lire les fichiers TEXT, Erick Ringot nous apprend a faire de beaux listings et 
Th. Charlier de Chily amiliore le programme de fondu enchaini de Denis Sureau. Pour ma part, je 
montre comment envoyer des caracteres spiciaux a vote imprimante, et j'analyse pour vous le pro- 
gramme Magicalc. Jean-Francois Duvivier tient toujours avec maestria la rubrique des nouveautis, 
Alexandre Duback la bibliographie et Olivier Hera le courrier des lecteurs. Avec tout cela, si vous 
avez encore faim, dites-Ie nous ... 

Nous vous avions annonci note intention de parler de communication. Nous y pensons toujours, mais 
ce numiro est deja plein a craquer, nous n'avons plus assez de place. Ce n'est que partie remise. Pom's 
innove depuis le numiro 8 : tous nos textes sont priparis en taitement de texte sur Apple, recodis a 
1'aide d'un programme de conversion et d'enrichissement de texte icrit par Logma, et transmis a l'ordi- 
nateur de composition de Tilicompo grice a la carte super sirie et au Modem Telsat 640 de Satelcom. 
Void une application intiressante de la communication ! 

Herve Thiriez 
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AU SOMMAIRE 

• Panorama des ordinateurs valant 
jusqu'a 60000 F (200 materiels) 

• Tableau recapitulatif de tous les 0.1. 
dans plusieurs configurations 

• Panorama des imprimantes pour 
ordinateur individuel (plus de 100 materiels) 

• Reactualisation de bancs d'essai 
de 50 materiels parus dans L'O.I. 

• Revue des bancs d'essai de 52 logiciels 
parus dans L'O.I. depuis le n°34 

• Annuaire des fournisseurs et des clubs : 
plus de 1 500 adresses 

• Le point sur les nouveautes parues 
depuis I'ete 82 

• Dictionnaire de I'informatique individuelle 

• ...Et une serie d'articles pour vous "guider" 
sur le chemin de votre informatisation 
individuelle 

a partir 
du 12 septembre 1983 

35 FF 
chez votre marchand 
de journaux 

Pour recevoir, chez vous le 
Guide 83-84 des sa parution, il vous 
suffit d'envoyer vos nom et adresse 
ainsi qu'un cheque de 35 FF a 
L'ORDINATEUR INDIVIDUEL (GUIDE 83-84) 
39, rue de la Grange-aux-Belles 
75484 Pans CedexlO 

Une reduction de 5FF est accordee aux abonnes 
sur envoi de la derniere etiquette d'expedition 



Thierry Le Tallec 



Copie basse resolution 

d ecran HGR 



Ce programme constituera, je l'es- 
pere, un precieux utilitaire pour ceux 
d'entre vous qui, ne possedant pas 
d'imprimante graphique, se sont vus 
prives jusqu'a ce jour de la possibility 
d'obtenir des copies "papier" de 
leurs graphiques Haute Resolution 
preferes. II permet en effet de reco- 
pier un ecran Haute Resolution sur 
une imprimante NON graphique, a la 
seule condition quelle puisse ecrire 
en mode "compresse". 

Les commentaires donnes en regard 
du programme-source en assembleur 
fournissent les renseignements neces- 
saires en ce qui concerne la demar- 
che adoptee. 



Le code-objet est implante en me- 
moire au debut du programme en 
Applesoft GRAFTEXT (lignes 10 a 
60), dont 1' execution est seule re- 
quise pour obtenir la copie souhai- 
tee. 

A noter que le nom des pages HGR 
a copier doit se terminer par ".PIC" 
pour que le programme puisse les 
charger. Ainsi, pour copier le graphi- 
que DESSIN, il faut le baptiser DES- 
SIN.PIC et fournir le nom DESSIN 
en reponse au programme. 

Le processus d' utilisation du pro- 
gramme est le suivant : 



• Mettre la disquette ou se trouve le 
graphique dans le lecteur "actif". 

• Demander le CATALOG. 

• Donner le nom du graphique a 
charger, appuyer sur une touche 
lorsque celui-ci est affiche pour re- 
venir au menu. 

• Demander la copie. 

Notez enfin que sur le graphique re- 
copie, les points de la gauche de 
1' ecran sortent en haut du papier et 
ceux de la droite en bas. N'oubliez 
done pas de faire une rotation de 90 
degres pour obtenir un maximum de 
ressemblance avec 1' original ! 



Programme GRAFTEXT 

1 PS = CHRS (27) ♦ CHRS (56) * CHRS (27) * 
CHRS (66) f CHRS (29): REM MODE CO 

MPRIME SUR MICROLINE 80 (A MODIFIER SE 

LON VOTRE IMPRIMANtE) 
10 GOSUB 100 :G = 49232 : TX > G • liFS 'GO 

:P1 = G * 4:P2 = G * 5:HR = G * 7: POK 

E FS,0: ONERR GOTO 300 
20 DS = CHRS (4):GT = 768: FOR A = GT TO GT 

♦ 182: READ D: POKE A , D : NEXT 
30 DATA 169,0,133,2,133,3,169,70,133,1,169,9 

6,133,6,169,191,133,4,169,0,133,5,162, 

2, 169, 4, 133, 7, 32, 116, 3, 144, 2, 230 ,5,230 

, 2 , 208 , 2 , 230 , 3 , 198 , 7 , 208 ,239 , 198 . 4 , 56 , 

165, 2 

40 DATA 233,4,133,2,165,3,233,0,133,3,202,20 
8,217, 166,5, 189, 107,3,32,237,253, 198,6 
,208, 199,32, 142,253,173,0, 192,48.17,16 
5,2,24,105,4,133,2,165,3,105,0,133,3, 1 
98,1,208,166 

50 DATA 32,47,251,44,16,192,96,160,174,172,1 
86,201,171,216,170,163,138,72,165,4,72 
,41,192,133,224,74,74,5,224,133,224,10 
4 , 133 , 225 , lO, 10 , 10 , 38 , 225 , 10 , 38 , 225 , 10 
,102,224,165,225,41,31,5 

60 DATA 230,133,225,165,2,164,3,192,0,240,5, 
160,35, 105,4,200,233,7, 176,251 ,170,177 
,224,69,0, 10, 10,232,208,252, 104,170,96 

70 GET AS: IF AS = "2" THEN POKE HR,0: POKE 
G,0: POKE P2,0: GET AS: POKE TX,0: PO 
KE P1,0: POKE 230,64:AS = — ■ 

75 IF AS = "C" THEN PRINT AS: PRINT DS"CATA 
LOG": PRINT : INVERSE : PRINT "NOM DE 
L' IMAGE A CHARGER";: NORMAL : INPUT " 
:";NS: IF NS < > "" THEN PRINT DS"BL 
0AD";NS;".PIC,AS2000":AS = "1" 

80 IF AS = "1" THEN POKE HR,0: POKE G,0: GE 
T AS: POKE TX,0: POKE 230, 32: AS = "" 

85 IF AS = "R" THEN GOSUB 200: POKC HR,0: P 
OKE PI - ( PEEK (230) = 64), 0: POKE G, 
0: PRINT : PRINT DS"PR#1": PRINT PS: C 
ALL GT: PRINT DS"PR#0" : AS = "" 

90 IF AS < > "Q" THEN GOSUB 100: GOTO 70 

99 HTAB l: FOR I = 23 TO 1 STEP - 1: VTAB I 

: PRINT " 

";: NEXT : TEXT : FOR 1 = 1 

TO 23: VTAB I: PRINT SPC ( 40): NEXT 
: END 



lOO HOME : VTAB 1: INVERSE : PRINT " << GR 
AFTEXT >> ": PRINT " GROSSIERS SOFTW 
ARE ": NORMAL : VTAB 1: HTAB 26: PRINT 
"(C)1982 -- TOUS";: HTAB 26: PRINT "D 
ROITS RESERVES": POKE 34,2 

110 VTAB 7: KTAB 10: PRINT "1 - VOIR LA PAGE 
1": PRINT : HTAB 10: PRINT "2 - VOIR 
LA PAGE 2": PRINT : HTAB 10: PRINT "C 
- CATALOGUE": PRINT : HTAB 10: PRINT " 
R - RECOPIE SUR IMPRIMANTE" : PRINT : H 
TAB 10: PRINT "Q - QUITTER" 

120 VTAB 20: HTAB 1: PRINT "VOTRE CHOIX :"; 

190 RETURN 

200 VTAB 23: HTAB 1: PRINT "(N)ORMAL OU (I)N 
VERSE ?";: GET AS: ON (AS < > "N" AND 
AS < > "I") GOTO 200: POKE 0,0: IF A 
S = "I" THEN POKE 0,255 

210 RETURN 

300 Y = PEEK (222): POKE TX,0: POKE P1,0: PR 
INT : IF Y = 6 THEN FLASH : PRINT "JE 
NE LA TROUVE PAS";: NORMAL 

310 PRINT CHRS (7): IF Y = 8 THEN FLASH : 
PRINT "I/O ERROR" 

330 WAIT 49152,128: POKE 49168,0: PRINT : GO 
TO 90 



1 ******♦*♦♦*****♦**#»«»**♦ 


2 ♦ 






♦ 


3 « 

4 * 


GRAFTEXT 




Big 


5 ******* 

c 




****** Mac 


o 

7 * RecoDie d'ecran haute- resolution 


8 • sur liprimante NON graphioue 


g « 








10 


09/11/82 




GRAFTEX contient (lignes 


11 * 




20 a 60) le code binaire de 


12 






GRAFTEXT,S 


13 








14 


ORG $300 


;call 768 


15 








16 HMflSK 


EQU $00 


;*00=negatif, $FF=positif 


17 LINES 


EQU $01 


;co«pteur de iignes (0-63) 



:?. ltiMn*tfffft™Bli 
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18 XCDORDL 


EQU 


$02 


;coordonnee horizontale 


78 


CLC 






19 XCOORDH 


EQU 


$03 




79 


ADC 


£4 




20 Y COORD 


EQU 


$04 


;coordonnee verticale 


80 


STA 


XCOORDL 




21 CELL 


EQU 


$05 


;caractere graphique OKI 


81 


LDA 


XCOORDH 




22 CHARS 


EQU 


$06 


;coi»oteur de caracteres 


82 


ADC 


£0 


; (addition 16 bits) 


23 COLUMN 


EQU 


$07 




83 


STA 


XCOORDH 




24 HBASL 


EQU 


$E0 


;poirtteur d'adresse ecran 


84 


DEC 


LINES 




25 HBASH 


EQU 


$E1 




85 


BNE 


SCflNCOL 


;colonne suivante si pas fini 


26 HPflS 


EQU 


$E6 


;$20=page 1, $40=page 2 


86 






27 KBD 


EQU 


$C0OO 




87 END 


JSR 


WIT 


;*ode texte 


28 KBDSTRB 


EQU 


$C010 




88 


BIT 


KBDSTRB 


29 WIT 


EQU 


$FB2F 




89 


RTS 






30 HOWE 


EQU 


$FC58 




90 TABLE 


ASC 


" .,:I+X*£" 


31 RDKEY 


EQU 


$FD0C 




91 








32 CROUT 


EQU 


$FDBE 




92 * teste l'ecran HR. Revient avec carry=l si point aliunie 


33 COUT 


EQU 


SFDED 




93 








34 








94 HPOSN 


TXA 






35 * flffiche 70 lignes de 96 colormes 


95 


PHA 






36 








% 


LDA 


YCOORD 


;YCOORD=abcd efgh 


37 


LDfl 


to 


; analyse les colormes - 279 


97 


PHA 




;sauvegarde coordonnee verticale 


36 


STfl 


XCOORDL 




98 


AND 


£$C0 


39 


STA 


XCOORDH 




99 


STA 


HBASL 


;HBASL=abO0 0000 


40 


LDfl 


£70 


;co»pteur de lignes = 70 


100 


LSR 






41 


STfl 


LINES 




101 


LSR 






42 SCANCOL 


LDfl 


£96 


;co«pteur de caracteres = 96 


102 


ORfl 


HBASL 




43 


STfl 


CHARS 




103 


STfl 


HBftSL 


;HBflSL=abab 0000 


44 


LDfl 


£191 


;analyse l'ecran de bas en haut 


104 


PLfl 




;recupere coordonnee verticale 


45 


STfl 


YCOORD 




105 


STfl 


HBflSH 


;HBASH=abct! efoh 


46 BOX 


LDfl 


£0 


;raz cotpteur points/cases 


106 


flSL 




; fl=bcde fghO 


47 


STfl 


CELL 




107 


flSL 




; fl=cdef ghOO 


48 


LDX 


£2 


;analyse des "cases" de 2x4 


108 


flSL 




; A=defg hOOO 


49 NXTCOL 


LDfl 


£4 




109 


ROL 


HBfiSH 


;HBftSH=bcde fghc 


50 


STfl 


COLUMN 




110 


flSL 




; A=efgh 0000 


51 BOX1 


JSR 


HPOSN 


;teste si point allume 


111 


ROL 


HBflSH 


;HBASH=cdef ghcd 


'52 


BCC 


B0X2 




112 


flSL 




; fl=fghO 0000 


53 


INC 


CELL 


;co«pte si oui 


113 


ROR 


HBASL 


;HBflSL=eaba bOOO 


54 B0X2 


INC 


XCOORDL 




114 


LDfl 


HBflSH 




55 


BNE 


B0X3 




115 


AND 


£$1F 


; fl=000f gncd 




INC 


XCOORDH 


;(incre«ente 16 bits) 


116 


ORfl 


HPAG 




57 B0X3 


DEC 


COLUMN 




117 


STA 


HBflSH 


;HBftSH=pppf ghcd 


58 


BNE 


B0X1 


, point 5uivant 


118 


LDfl 


XCOORDl 


;divise XCOORD par 7 


59 


DEC 


YCOORD 


;ou rangee suivante 


119 


LDY 


XCOORDH 


;(quotient=rang de l'octet 


60 


SEC 






L/.V 


PDV 


£$00 


; reste=rartg du bit dans l'octet 


61 


LDfl 


XCOORDL 




121 


BEQ 


HP0SN2 




62 


SBC 


£4 




122 


LDY 


£$23 




63 


STfl 


XCOORDL 




123 


ADC 


£$04 




64 


LDfl 


XCOORDH 




124 HPOSN1 


INY 






65 


SBC 


£0 


;(soustraction 16 bits) 


125 HPOSN2 


SBC 


£$07 




66 


STfl 


XCOORDH 




126 


BCS 


HPOSN! 




67 


DEX 






127 


TAX 




;sauvegarde rang du bit 


68 


BNE 


NXTCOL 




128 


LDA 


(HBASL), Y ;charge 1' octet dans A 


69 NXTBOX 


LDX 


CELL 


;prend le nombre de points 


129 


EOR 


HMASK 


:(nor«al ou inverse) 


70 


LDfl 


TABLE, X 




130 


ASL 






71 


JSR 


COUT 


;sort le cractere correspondant 


131 FIGURE 


ASL 




;decale le bit dans la carry 


72 


DEC 


CHARS 




132 


INX 




;jusqu'au rang indique par X 


73 


BNE 


BOX 


;case suivante si oas fini 


133 


BNE 


FIGURE 




74 NEXTLIN 


JSR 


CROUT 




134 


PLA 






75 


LDfl 


KBD 




135 


TAX 




;recupere X 


76 


EMI 


END 


;fm si clavier appuye 


136 


RTS 






77 


LDfl 


XCOORDL 




137 


LST 


OFF 
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La magie de Magicalc 

Herve Thiriez 



Que serait la micro-informatique au- 
jourd'hui sans Visicalc ? II est a pre- 
sent inconcevable d'acquerir un 
micro-ordinateur qui ne soit pas 
equipe d'un "tableur", qu'il s'agisse 
de Visicalc, Supercalc, Spreadsheet, 
Multiplan ou un autre. A cette longue 
serie vient de s'ajouter Magicalc, pro- 
duit par ARTSCI a qui nous devons 
un programme de traitement de texte 
deja celebre, Magic Window. 

The Spreadsheet 

Certains d'entre vous ont entendu 
parler de 'The Spreadsheet", ce ta- 
bleur vendu anterieurement pour 
moins de $30 par CALL A.P.P.LE. 
a ses adherents, compatible avec Vi- 
sicalc, et possedant par rapport a ce 
dernier des possibilites supplementai- 
res. Ce programme a ete suivi de 
"Spreadsheet 2", lui aussi vendu a 
un prix imbattable ; ce programme 
est parfait, a une exception pres. II se 
trompe en effet dans certains cas lors 
de la presentation a l'ecran. II est ins- 
tructif a cet egard de voir comment 
est reproduite la valeur 99,99999 
dans les colonnes de gauche a 
droite : la valeur de 99,99999 de la 
case Al a ete reproduite dans les co- 
lonnes B, C, D, E et F dont les lar- 
geurs avaient ete prealablement defi- 
nies a 9 colonnes, 8, 7, 6, 5 et 4 de 
large. 

99.99999| 100.00d| 100. 04| 100. 4| 104. j 14oj 

Comme vous pouvez le voir, il est 
etrange de constater que 99,99999 
devient 140 a l'ecran quand la co- 
lonne est de largeur 4. D'ailleurs, si 
Ton reproduit la valeur de Al en A2, 
on obtient bien 99,99999. II suffit 
alors de modifier le format de A2 par 
« /FI » pour voir apparaTtre 140 ! 
Pour des raisons qu'il serait trop long 
de detailler ici, "Spreadsheet 2" n'est 
plus commercialise maintenant. 

Magicalc 

Par contre, Magicalc vient d'etre 
lance sur le marche, distribue en 
France par BIP avec une documenta- 
tion en anglais et une notice expli- 
quant en francais, a ceux qui 
connaissent deja Visicalc, le mode 
d'emploi des nouvelles possibilites de 
Magicalc. La documentation en an- 
glais est presentee comme celle de 
Visicalc, y compris un depliant car- 
tonne servant d' aide-memoire, ce qui 
est toujours bien pratique et dont de- 
vraient s'inspirer tous les auteurs de 
progiciels. 



Au niveau des possibilites, on re- 
trouve "Spreadsheet 2" a quelques 
petits details pres; entre autres, le 
bug decrit ci-dessus est enfin corrige. 
En quelques mots, Magicalc a tous 
les moyens du Visicalc 16 secteurs 
(DOS 3.3), plus les suivants : 

• utilisation des quatre touches de 
deplacement (sur le He) 

• colonnes de largeurs differentes 

• colonnes invisibles 

• reconnaissance de cartes d'exten- 
sion memoire 

• reconnaissance de cartes 80 co- 
lonnes 

• protection possible des cases 

• reproduction de formats et d'attri- 
buts 

• compatibility avec les disques durs 

• fonctions supplementaires 

• lecture/ecriture plus flexible 

• impressions ameliorees. 

En fait, Magicalc possede la moitie 
des possibilites de Visicalc Advanced 
Version que n'a pas la version stan- 
dard de Visicalc, le tout a un prix 
tout a fait abordable puisque Magi- 
calc coQte seulement 2.040 F HT. 
Visicalc Advanced Version est at- 
tendu, mais pas encore disponible 
sur Apple //e; on ne le trouve en ce 
moment que sur Apple ///, et a un 
prix sensiblement superieur a celui 
de la version normale. 

Visicalc Advanced 
Version 

Les avantages de Visicalc Advanced 
Version que ne partage pas le pro- 
gramme Magicalc sont les suivants : 

• la capacite de memoriser des chal- 
nes d'instructions 

• une serie de fonctions financieres 

• des fonctions de mesure du temps 
(date, heure, ...) 

• des formats beaucoup plus varies. 

Mais, apres tout, au prix ou se vend 
Magicalc, on peut encore dans beau- 
coup de cas se passer de ces particu- 
larites supplementaires. 

Les "plus" de Magicalc 

Commentons maintenant en detail 
les "plus" de Magicalc presentes plus 
haut de fagon synthetique. Notre but 
n'est pas d'etre exhaustif, mais d'il- 
lustrer les traits essentiels de ce nou- 
veau tableur. 



Utilisation du clavier 

Le deplacement dans les quatre di- 
rections a partir d'une case s'effectue 
grace aux touches (Q, S, Z et A) en 
mode CTRL. Le meme effet s' ob- 
tient avec les fleches, y compris les 
fleches verticales sur 1' Apple lie. 

Les touches CTRL-W et CTRL-X 
provoquent la montee et la descente 
de 12 lignes. CTRL-E place en haut 
a gauche de la feuille utilisee, et 
CTRL-C en bas a droite. C'est la le 
seul probleme de compatibility que 
j'ai eu : j'ai l'habirude d'utiliser fre- 
quemment CTRL-C pour interrom- 
pre une operation en cours avec Visi- 
calc, ce qui, avec Magicalc, valide 
1' operation en cours et deplace le 
curseur ... 



Largeur des colonnes 

La largeur de chaque colonne peut 
varier independamment; ainsi, la lar- 
geur permet d'eliminer une co- 
lonne lors de 1' impression de fagon 
particulierement elegante. On revient 
a une colonne de largeur par un 
GOTO direct avec le signe ">". D 
n'est plus indispensable d'ecrire des 
titres sur plusieurs colonnes, comme 
Visicalc nous y force regulierement. 
Enfin, une colonne de largeur 1, 
avec le signe "!" comme contenu, 
foumit une separation verticale bien 
agreable. 

Cartes d' extension memoire 

Magicalc reconnait automatiquement 
la plupart des cartes d' extension me- 
moire; a 1' extreme, on peut s'amuser 
avec des tableaux utilisant 512K de 
memoire, si Ton a quatre cartes Le- 
gend 128K ... 

Par contre, et cela est bien triste, la 
carte 80 colonnes etendue de 1' Ap- 
ple He n'est pas reconnue en tant 
qu' extension memoire, mais seule- 
ment en tant que carte 80 colonnes. 
Pour utiliser Magicalc avec plus de 
64K machine (ce qui fait 30K utilisa- 
teur), il faut done avoir une carte 
d' extension memoire qu'il reconnait. 

NDLR : nous venons d'etre avertis 
par BIP que les versions recentes de 
Magicalc reconnaissent maintenant 
completement la carte 80 colonnes 
etendue. 
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Cartes 80 colonnes 

Un menu de configuration vous per- 
met de dSfinir au programme l'equi- 
pement que vous utilisez; il suffit de 
repondre YES ou NO aux questions : 
Lower case video, Lower case key- 
board, One-wire shift key, Printer dri- 
ver et Video driver, il faut en outre 
indiquer, si necessaire, le slot de l'im- 
primante (1 par dSfaut) et celui de la 
video (0 par dSfaut). 

Meme si vous ne possedez pas de 
carte 80 colonnes, Magicalc vous 
permet de disposer de 70 colonnes a 
1' Scran; il suffit pour cela de repondre 
YES a la question Video driver. Ceci 
dir., les caracteres sont fatigants a lire, 
et la memoire rStrecit fortement avec 
le passage en 70 colonnes : la me- 
moire disponible avec un tableau 
vide sur un Apple 64K en 40 colon- 
nes est de 30K (on perd 4K par rap- 
port a Visicalc); en mode 70 colon- 
nes, elle n'est plus que de 18K. 

Avec un Apple He, il m'a suffi de 
specifier que j'avais une Lower case 
video et un Lower case keyboard, et 
de memoriser cette configuration sur 
ma disquette fichiers. Des que je 
lance Magicalc, je peux tout utiliser, y 
compris les 80 colonnes (reconnues 
automatiquement sur la carte Apple) 
et des libelles avec des minuscules et 
des lettres accentuSes. Attention, ce- 
pendant : avec le clavier en mode 
AZERTY, il faut des touches multi- 
ples (avec le SHIFT) pour obtenir le 
slash (/) ou les chiffres. Je travaille 
par consequent en clavier anglais, 
basculant sur le francais uniquement 
au moment de dSfinir des titres avec 
des lettres accentuSes. 

Les attributs 

Comme Visicalc Advanced Version, 
Magicalc autorise la definition d' attri- 
buts dans une case ou une serie de 
cases. Un attribut peut Stre, comme 
un format, dSfini localement ou glo- 
balement. Les attributs possibles 
sont : 

• D : valeur par defaut (attribut glo- 
bal) 

• A (all) : accepter toute donnee, 
VALUE ou LABEL 

• L (label) : toute entree est une eti- 
quette 

• V (value) : toute entree est une 
valeur 

• P (protect) : case protegee, ne 
peut etre modifiee avant d'avoir 
StS deprotegee, par exemple avec 
"/AD". 

• H (hide) : le contenu de la case 
reste utilisable par les autres cases, 



mais il est devenu invisible, a ['im- 
pression comme sur la ligne de 
contenu (quand le curseur passe 
sur la case). La ligne de contenu 
fait seulement apparaftre les coor- 
donnees de la case et "/AH", ce 
qui permet de savoir que la case a 
StS protegee. 

Reproduction de formats et 
d'attributs 

Le REPLICATE fonctionne comme 
dans Visicalc avec, en plus, la possi- 
bility de reproduire des attributs 
seuls, des formats seuls, des conte- 
nus seuls (sans format ni attribut), 
des valeurs et des etiquettes sans les 
formules, des contenus complets en- 
tierement en NO CHANGE, ou en- 
tierement en RELATIVE. 



ment desagreable. Ce probleme a 
ete provoque par le fait que, dans un 
menu de configuration, on specifie si 
une sauvegarde doit etre effectuee 
normalement ou en format DIF. L'in- 
convSnient est que, si Ton a specific 
le format DIF a un moment donnS 
sans signaler ensuite le retour a la 
normale, toutes les sauvegardes ulte- 
rieures s'effectuent selon ce format. 
Ainsi, j'ai sauvegarde apres de ton- 
gues modifications un tableau, sans 
savoir qu'il etait en format DIF. 
Quand, quelques jours plus tard, j'ai 
voulu le relire, plus rien ne marchait. 
Si je n'etais pas tres prudent (et 
n'avais pas d'autres sauvegardes), 
j'aurais totalement perdu ce tableau 
avec ses formules. Au moins, dans 
Visicalc, faire "/SS" ou faire 7S#S", 
ce n'est pas la meme chose ! 



Fonctions supplementaires Modalites d'impression 



Les fonctions supplementaires sont 
multiples; on y retrouve de nombreu- 
ses fonctions propres a Visicalc Ad- 
vanced Version ou a Multiplan : 

• COL : renvoie la valeur de la co- 
lonne de la cellule 

• ROUND(valeur, n) : arrondit la va- 
leur a n decimales. Cela nous 
evite la solution actuelle avec Visi- 
calc : INT(1000*valeur.+5)/1000 
pour avoir par exemple un arrondi 
a trois decimales. 

• ROW : renvoie la valeur de la 
ligne de la cellule 

Lecture et ecriture 

Lors de la lecture ou de la sauve- 
garde d'un fichier, Magicalc donne a 
1' Scran la liste des fichiers sur la dis- 
quette, ceux-ci etant numerates sS- 
quentiellement. On selectionne alors 
le nom a utiliser ou le numero cor- 
respondent. Trois regrets a cet 
egard : que la liste ne se fasse pas 
sur deux colonnes, ce qui permettrait 
de voir deux fois plus de fichiers 
d'un coup. Le second regret est que 
le programme ne propose pas par 
defaut le nom du dernier fichier 
charge : cela eviterait des erreurs de 
manipulation aux consequences des- 
tructrices. Enfin, il serait plus prudent 
de voir le nom de fichier choisi appa- 
raftre en inverse avant que ('opera- 
tion ne soit lancSe : on pourrait alors 
corriger le tJr avant qu'il ne soit trop 
tard. 

ATTENTION - J'ai rencontre avec 
Magicalc un grave probleme qui m'a 
fait perdre le resultat de quatre 
heures de travail, ce qui est extrSme- 



Comme Multiplan, Magicalc formate 
1' impression automatiquement en te- 
nant compte du nombre de colonnes 
disponibles indique par l'utilisateur 
lore de la configuration de l'impri- 
mante. Si le tableau est trop large, 
Magicalc imprime la suite en-dessous 
de la premiere partie, sans interven- 
tion de la part de Futilisateur. 

En ce qui me conceme, je ne trouve 
pas ce formatage automatique de 
l'impression reellement interessant : 
quand un tableau est trop large et 
que je veux l'imprimer sur deux 
pages, je souhaite garder sur la se- 
conde page la colonne A, ou les co- 
lonnes A et B, ce que ne fait pas le 
formatage automatique. Le probleme 
est indentique pour un tableau trop 
long : on souhaite en general repro- 
duire une ou deux lignes de titres en 
haut de la suite du tableau. 



Conclusion 

Magicalc est tellement interessant que 
je 1' utilise systematiquement a la 
place de Visicalc pour mes propres 
tableaux. Dans le numero 6 de 
Pom's, j'expliquai que j'utilisais tantot 
Visicalc, tantot Multiplan. Maintenant, 
j'alterne suivant les besoins entre Ma- 
gicalc et Multiplan. De la meme 
facon que je ne prends pas la meme 
voiture pour faire de la conduite en 
ville ou de la route (si j'ai le choix), 
je ne prend pas le meme tableur 
pour tous mes tableaux. 

J 'attends la sortie de Visicalc Advan- 
ced Version sur Apple lie et Kan- 
nonce de son prix, encore indSfini, 
pour savoir si je vais un jour rempla- 
cer Magicalc par celui-la ... En atten- 
dant, je ne I5che pas mon exem- 
plaire de Magicalc ! 
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Editeur-compositeur de texte 

Gerard Hisleur 



EDIT est un editeur de texte ecrit en 
BASIC et fonctionnant ligne a ligne. 
II offre de nombreuses possibilites 
d'insertion, de suppression et de mo- 
dification de lignes, fonctions classi- 
ques d'un editeur de texte. 

Un accent particulier a ete mis sur 
1'aspect ergonomique du dialogue. 
Le menu des commandes est ainsi 
accessible a tout moment, de meme 
que le mode d'emploi des differentes 
commandes. 

EDIT traite tous les fichiers a acces 
sequenfiel en mode texte dont les 
enregistrements ont une longueur in- 
ferieure ou egale a 255 caracteres. 
Ces derniers pouvant etre quelcon- 
ques, EDIT utilise la routine d' INPUT 
generalise appartenant au pro- 
gramme "La Programmation Facili- 
tee" de Denis Sureau, publie dans 
Pom's 5. 



Chaque enregistrement 
'ligne" pour 1' editeur. 



est une 



Le champ d'action de 1' editeur 
s'etend aux procedures cataloguees, 
aux textes destines au compositeur 
de texte COMPOS (voir plus loin) et 
aux programmes BASIC. 

Tout programme BASIC peut en 
effet, comme Pom's l'a deja signale, 
etre transforme en un fichier TEXT 
au travers d'un fichier EXEC. 



Principes de fonctionne- 
ment de l'editeur 

Le texte a editer est stocke dans un 
fichier TEXT designe par son nom et 
eventuellement un numero de lecteur 
(par exemple SOURCE, D2 ou 
TEXT.BASIC avec Dl par defaut). 
Le nom de ce fichier constitue la pre- 
miere information a foumir a l'edi- 
teur; donner un nom ne correspon- 
dent a aucun fichier existant sur la 
disquette utilisee revient a commen- 
cer l'edition d'un nouveau texte. 

Si le fichier existe, il est lu en me- 
moire. 

Tout au long de l'edition, EDIT 
maintient un pointeur sur la ligne en 
cours de traitement, dite ligne cou- 
rante. Le pointeur evolue en fonction 
des commandes donnees et, en ge- 
neral, la ligne courante est imprimee 
apres 1' execution d'une commande. 



Mise en route du programme 

Les instructions necessaires sont : 

BRUN PROGR48K ("La Program- 
mation facilitee") 

RUN PROGR.EDIT 

Sur la disquette d'accompagnement, 
le fichier EDIT contient ces deux 
commandes, et le lancement peut 
done se faire par EXEC EDIT. 

Les commandes 

La commande "?" affiche a l'ecran la 
liste des commandes disponibles. 
Comme. toutes les autres, elle doit 
etre tapee en reponse a la question 
COMMANDE? posee par le pro- 
gramme, et non au cours de 1' edition 
elle-meme. 

Chaque nom de commande suivi du 
caractere "?" (C? par exemple) affi- 
che le mode d'emploi correspondent. 

1) Commande N(ext) 

• N p : progression du pointeur de 
ligne de p positions. N equivaut a 
N 1. 

• N/chaine : positionnement du 
pointeur sur la premiere ligne, en 
avant de la ligne courante, ou se 
trouve la chaine specifiee. 

2) Commande U(p) 

• Up: recul du pointeur de p posi- 
tions. U equivaut a U 1. 

• U/chaine : positionnement sur la 
premiere ligne, en arriere de la 
ligne courante, ou se trouve la 
chaine. 

Lorsque l'editeur rencontre le debut 
du texte, il affiche le message FIN 
DE FICHIER et le pointeur se place 
devant la premiere ligne du texte. 

3) Commande T(op) 

• Positionnement au debut du texte, 
avant la premiere ligne existante, 
ce qui permet les insertions en tete 
du fichier. 

4) Commande B(ottom) 

• Positionnement sur la derniere 
ligne du texte. 

5) Commande J(ump) 

• J p : lorsque le fichier correspond 
a un programme BASIC, le poin- 



teur vient sur la ligne portant le 
numero p. 

6) Commande D(elete) 

• Dp: suppression de p lignes, 
ligne courante comprise. D equi- 
vaut a D 1. 

7) Commande I(nsert) 

• Insertion de lignes derriere la ligne 
courante. La fin de 1' insertion est 
indiquee par une ligne ne compor- 
tant que le caractere "#". La der- 
niere ligne inseree devient ligne 
courante. 

8) Commande R(eplace) 

• R chaine : remplacement de la 
ligne courante par la chaine don- 
nee. Cette commande equivaut a 
la suite de commandes D, U, I, 
chaine, #. 

9) Commande C(hange) 

• C/chaine 1/chaine 2 : remplace 
"chaine 1" par "chaine 2" dans la 
ligne courante. 

• C*/chaine 1/chaine 2 : meme 
operation, mais cette fois sur l'en- 
semble du fichier. 

10) Commande A(gain) 

• Repetition de la derniere com- 
mande executee. 

11) Commande P(rint) 

• P n : affichage de n lignes, ligne 
courante comprise. P equivaut a P 

• P* n : impression de n lignes sur 
une imprimante en slot 1. P* 
equivaut a P* 1. 

La derniere ligne traitee devient ligne 
courante. 

12) Commande W(rite) 

• W NOM p : ecriture dans le fichier 
baptise NOM de p lignes a partir 
de la ligne courante. Si le numero 
du lecteur n'est pas precise, EDIT 
utilise par defaut celui supportant 
le fichier a editer. 

• W* NOM p : ecriture de toutes les 
lignes comprises entre la ligne 
courante et celle de numero p 
lorsque le texte correspond a un 
programme BASIC. 
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13) Commande G(et) 

• G NOM pi p2 : insertion derriere 
la ligne courante de lignes issues 
du fichier NOM, pi et p2 preci- 
sant les rangs dans ce fichier de la 
premiere et de la derniere ligne a 
inserer. 

• G* NOM pi p2 : insertion derriere 
la ligne courante des lignes BASIC 
pi a p2, lorsque les fichiers traites 
correspondent a des programmes 
BASIC. 

14) Commande F(ile) 

• Fin de l'edirion avec mise a jour 
du fichier TEXT initial. 

Pour des raisons de securite, cette 
operation se fait en trois etapes : 

— ecriture du texte dans le fichier 
TEMPO 

— destruction du fichier initial 

— remplacement du nom TEMPO 
par le nom initial. 

15) Commande Q(uit) 

• Abandon de l'Sdition en cours 
sans mise a jour du fichier. 

Remarque 

II est possible d'obtenir une version 
plus compacte de PROGR.EDIT, 
sans affichage du menu des 
commandes et de leur mode d'em- 
ploi. Pour ce faire, effectuez les ope- 
rations suivantes : 

• supprimer les lignes 50, 350, 9500 
et 10000 

• remplacer la ligne 40 par 40 
HOME 

• remplacer la ligne 310 par 310 
GOTO 1230 

• remplacer la ligne 330 par 330 IF 
MID$(A$,2,1)="?" THEN 1230 

Le compositeur de texte 
COMPOS 

COMPOS est un outil charge de 
mettre en forme un texte source 
dans lequel sont inserees des 
commandes de mise en page. Le 
texte source est un fichier TEXT a 
acces sequentiel qui peut etre aise- 
ment genera et corrige par EDIT. 

Trois options sont possibles pour la 
mise en page : 

• affichage a l'ecran 

• impression 

• ecriture dans un fichier TEXT 
(fichier objet). 

La sortie sur ecran du texte compost 
facilite la mise au point du texte 



source, la mise en page etant absolu- 
ment identique (a la longueur des 
lignes pres) pour les trois supports de 
sortie. 

Le clavier standard de l'Apple II Plus 
ne gere pas les minuscules, mais 
COMPOS permet cependant le me- 
lange de majuscules et de minuscules 
pour un texte imprime. 

L' operation de composition est relati- 
vement lente. Cela s'explique par le 
fait que chaque caractere du fichier 
source est analyse et, eventuelle- 
ment, recode en minuscule. Lorsque 
1'utilisateur desire imprimer plusieurs 
fois un meme texte, il a done interet 
a demander la creation d'un fichier 
objet qui pourra ensuite etre imprime 
a volonte par l'editeur EDIT (com- 
mande P*). 

Le fichier source, de meme que le fi- 
chier objet, sont designes par un 
nom suivi d'un numero de lecteur 
(TEXTE, D2 par exemple). Pour le fi- 
chier source, le lecteur pris par de- 
faut est Dl. Par defaut toujours, le 
fichier objet sera ecrit sur le lecteur 
utilise pour le fichier source. 

Commandes de mise en 
page 

Le fichier source se compose du 
texte proprement dit et des comman- 
des de mise en page. Ces demieres 
ont toujours "]" pour premier carac- 
tere. Certaines comportent un carac- 
tere numerique; dans ce cas, la fin 
de la commande est obligatoirement 
un espace. 

COMPOS reconnait six commandes : 

• ]P : provoque un saut de page 

• ] : provoque un saut a la ligne 

• ]Ln : provoque un saut de n lignes 

• ]Sn : genere n espaces en debut 
de ligne 

• ]Tn : cree une marge de n carac- 
teres s'appliquant a toutes les 
lignes suivantes jusqu'a la rencon- 
tre d'une nouvelle commande T 
(]T0 annule toute marge) 

• ]M : cadre la phrase suivante en 
milieu de ligne. 

Pour les commandes L, S et T, n 
vaut 1 par defaut. 

Le caractere "J" est obtenu par 
"SHIFT-M". Pour l'utiliser dans un 
texte, il suffit de le doubler. 

Mise en page 

L' unite de traitement de COMPOS 
est le mot, e'est-a-dire une suite de 



caracteres limitee par l'indicateur de 
commande ], un espace ou un RE- 
TURN. 

Chaque enregistrement du fichier 
source peut comporter un nombre 
entier quelconque de mots. 

COMPOS calcule l'espacement libre 
entre les mots de maniere que toutes 
les lignes du texte aient la meme lon- 
gueur, en tenant compte de la marge 
demandee. 

Une phrase peut etre precedee d'une 
ou plusieurs commandes de mise en 
page (saut de ligne par exemple). 

En l'absence de commandes, les 
phrases sont generees les unes a la 
suite des autres, une majuscule sui- 
vant toujours les caracteres "?" 
et "!". 

Sur imprimante ou dans le fichier 
objet, le texte est compose en minus- 
cules, a 1' exception du premier carac- 
tere de chaque phrase. II est en outre 
possible de commander l'emploi des 
majuscules pour une suite de carac- 
teres en les encadrant par @ (pour 
utiliser @ dans un texte, il suffit de le 
doubler). 

En affichage a l'ecran, COMPOS met 
les majuscules en INVERSE. 

Format d'impression 

Lorsque le texte compose est sorti 
sur une imprimante (slot 1) ou copie 
dans un fichier, COMPOS refient le 
format suivant : 

• 75 caracteres par ligne 

• 66 lignes par page. 

La modification des lignes 30 et 40 
du programme PROGR. COMPOS 
permet de changer ces parametres. 

Mise en route du compo- 
siteur 

EUe resulte des instructions suivan- 
tes : 

BRUN PROGR48K 

RUN PROGR. COMPOS 

Sur la disquette d'accompagnement, 
ces commandes sont contenues dans 
le fichier COMPOS, et il suffit done 
de faire EXEC COMPOS. 

Exemple 

1) Le texte source est introduit 
comme suit : 

]M@LES SEPT JOURS DE LA SEMAINEfS 
]L2 UNE SEMAINE EST COMPOSEE 
DE SEPT JOURS. CE SONT : 



mstssttsea 
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]T5 ] LUNDI ] MARDI ) MERCRED1 

] JEUDI ] VENDRED1 ] SAMEDI ] DIMANCHE 

]L1 ]T0 IL Y A 52 SEMAINES DANS UNE 

ANNEE. 



2) A l'impression, il sort sous la 
forme : 



LES SEPT JOURS DE LA SEMAINE 



Une semaine est composee de sept 
jours. Ce sont : 

Lundi 
Mardi 



Mercredi 

Jeudi 

Vendredi 

Samedi 

Dimanche 

II y a 52 semaines dans une annee. 



Programme PROGR.EDIT 

10 REM ..... EDITEUR DE TEXTE EDIT 
20 REM ..... G. HISLEUR 

30 SCS = "/••: REM SEPARATEUR DE CHAINE 
40 GOSUB 9500 

50 PRINT "TOUTE COMMANDE SUIVIE DE ? ENTRAIN 
E": PRINT "L ' AFFICHAGE DE SON MODE D'E 
MPLOI.": PRINT 

100 NDS = ",D1": DIM SOURCES(IOOO) ,TN(1000> ,T 
U (1000) 

105 INVERSE : PRINT "NOM DU FICHIER A EDITER 

NORMAL : 6. INPUT NAS 
110 BS = NAS: GOSUB 8100:NDS = DIS:NAS = BS 
115 DS = CHRS (4): PRINT DS ; "OPEN" ; NAS ; NDS 
120 POKE 222,0: ONERR GOTO 165 
130 1=1: PRINT DS; "READ" ; NAS 
140 6, INPUT SOURCES(I) 
150 1=1+1: GOTO 140 

165 IF PEEK (222) < > 5 THEN 9000 

170 PRINT DS;"CLOSE";NAS:IMAX = I : IS = 0:IX 

= IMAX » 1 
175 POKE 216,0 

180 FOR I = TO IMAX:TN(I) = I ♦ 1 : TU < I ) = 

I - l: NEXT 
190 TN(IMAX) = IMAX:TU<0) = O 

195 IF IMAX = 1 THEN NW = 1 : PRINT : PRINT " 

NOUVEAU FICHIER": PRINT 
200 PRINT : INVERSE : PRINT "COMMANDE?"; : NO 

RMAL : 6. INPUT AS 
205 PRINT :ALS = LEFTS (AS,1):B = LEN (AS) 
210 CAS = "NUDCIPATBF JWGRQ" 

215 FOR NC = 1 TO 15: IF ALS = MIDS (CAS,NC 

,1) THEN 320 
220 NEXT 

310 PRINT : GOSUB 9500: GOTO 200 
320 IF ALS < > "A" THEN OAS = AS 
330 IF MIDS < AS ,2,1) = "1" THEN HOME : RES 
TORE : FOR 1=1 TO NC: READ CS: NEXT 
: PRINT TAB < 10);: FLASH : PRINT LEF 
TS (C»,l>;: NORMAL : PRINT RIGHTS (CS 
. LEN <CS) - 1): PRINT : PRINT : GOTO 
350 

340 ON NC GOTO 1000,1500,2000,2500,3000,3500 
, 4000 , 4500 , 5000 , 5500 , 6000 , 6500 , 7000 , 75 
00,7600 

350 ON NC GOTO 9600,9640,9680,9710,9780,9820 
, 9850 , 9860 , 9880, 9900 , 9910 , 9920 , 9940 , 99 
80,9990 

1000 REM •••*»•**•••••••••••■ COMMANDE N 

1010 IF B = 1 THEN 1040 

1020 IF MIDS ( AS ,2,1) = SCS THEN 1100 
1030 GOSUB 1200 

1040 IS = TN(IS): IF IS = IMAX THEN 8510 

1060 B = B - 1: IF B > THEN 1040 

1080 PRINT SOURCES(IS): GOTO 200 

1100 BS = RIGHTS (AS,B - 2) 

1110 IS = TN<IS): IF IS = IMAX THEN 8510 

1130 CS = SOURCES(IS) :C = LEN (CS) : IF C < B 

- 2 THEN 1110 
1150 FOR I = 1 TO C - B • 3 

1160 IF MIDS (CS,I,B - 2) = BS THEN 1080 

1170 NEXT : GOTO 1110 

1200 BS = RIGHTS (AS,B - 1) 

1205 B = VAL (BS) 

1210 IF LEFTS (BS,1) = " " AND BS < > " " 
THEN BS = RIGHTS (BS, LEN (BS) - 1): 
GOTO 1210 



1220 
1230 

1500 
1510 
1520 
1530 
1540 
1560 
1580 
1600 
1610 
1630 

1650 
1660 
1670 
2000 
2010 
2020 
2040 
2050 
2060 



2110 
2120 
2500 
2505 

2510 
2520 
2530 
2540 
2560 
2570 
2580 
2600 

2610 

2620 
2625 
2630 
2635 
2636 
2640 
2650 
2670 
2680 
2690 

2700 
2710 

2750 
2760 
2770 
2790 

2810 
3000 
3020 
3030 
3040 

3050 



IF BS = STRS (B) THEN RETURN 

PRINT DS"PR#0": PRINT "COMMANDE INCORRE 

CTE": GOTO 200 
REM ...»».««»•»«.««»«»»« COMMANDE U 
IF B = 1 THEN 1540 

IF MIDS (AS, 2.1) = SCS THEN 1600 

GOSUB 1200 
IS = TU(IS): IF IS = THEN 8510 
B = B - l: IF B > THEN 1540 

PRINT SOURCES(IS): GOTO 200 
BS = RIGHTS (AS.B - 2) 
IS = TIKIS) : IF IS = THEN 8510 
CS = SOURCES(IS) :C = LEN (CS) : IF C < B 
- 2 THEN 1610 

FOR I=lT0C-B+3 

IF MIDS (CS,I,B - 2) = BS THEN 1580 
NEXT : GOTO 1610 
. REM »»««»»»«»«*«»««««•«« COMMANDE D 
IF B = 1 THEN 2040 
GOSUB 1200 

IF IS = IMAX THEN 8510 

IF IS = THEN IS = TN(O) 
SOURCES(IS) = "":TN(TU(IS) ) = TN(IS):TU( 
TN(IS)) = TU(IS):IS = TN(IS):B = B - 1 
: IF B > O THEN 2040 

IF IS = IMAX THEN 8510 

PRINT SOURCES(IS): GOTO 200 

REM ..»»••.»««««»»»»«««»» COMMANDE C 
J = 2: IF MIDS (AS, 2,1) = "«" THEN J = 
3: GOTO 2540 

IF IS = O OR IS = IMAX THEN 8510 
CS = SOURCES (IS) 

IF B = 1 THEN PRINT CS: GOTO 200 

IF MIDS (AS,J,1) < > SCS THEN 1230 

FOR I = J + 1 TO B 

IF MIDS (AS, 1,1) = SCS THEN 2600 
NEXT : GOTO 1230 
A1S = MIDS (AS, J + 1,1 - J - 1>:A1 = L 
EN (A1S) 

IF I = B THEN A2S = "":A2 = 0: GOTO 262 
5 

A2S = RIGHTS (AS,B - I):A2 = LEN (A2S) 

IF J = 3 THEN 2750 
II = l: GOSUB 2636: IF K = 1 THEN 1230 

PRINT SOURCES(IS): GOTO 200 
CS = SOURCES(IS) :C = LEN (CS) 

FOR I = II TO C - SI • 1 

IF MIDS (CS,I,A1> = A1S THEN 2680 

NEXT :K = l: RETURN 

cis = M ":C2s = "":ii =c-l-Al+l 

IF I < > 1 THEN CIS = LEFTS (CS,I - 1 

) 

IF II < > THEN C2S = RIGHTS (CS.Il) 
SOURCES(IS) = CIS ♦ A2S * C2S : K = O: RET 

URN 
IS = 

IS = TN(IS): IF IS = IMAX THEN 200 
II = l: GOSUB 2636: IF K = 1 THEN 2760 
II = I + A2: GOSUB 2636: IF K = THEN 2 
790 

PRINT SOURCES(IS): GOTO 2760 

REM COMMANDE I 

CS = PRINT : PRINT " ' " ; : S. INPUT CS 

IF CS = "#" THEN 200 

SOURCES(IX) = CS: IF IS = IMAX THEN IS = 
TU(IS) 

TU(IX) = IS:TU(TN(IS) ) = IX:TN(IX) = TN( 

is>:TN(is> = ix:is = ix:ix = IX + i: G 

OTO 3020 
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3500 REM •«••••«•»«••««»»• «'■■ COMMANDE P 
3520 J =' 2!NL = l: IF J > B THEN 3570 
3530 A1S = MIDS <AS,J,1> 

3540 IF A1S = "«" THEN PRINT DS;"PR#1": PRI 
NT CHRS <9) ; "80N" : J = J * 1: IF J > B 
THEN B = B - 1 : GOTO 3570 
3550 BS = RIGHTS <AS,B - J * 1) 
35S0 GOSUB 1205 

3570 IF IS = THEN IS = TN<0) 4 
3580 IF IS = IMAX THEN PRINT DS;"PR#0": GOT 
8510 

3530 PRINT SOURCES(IS) :B = B - 1! IF B > O T 

HEN IS ■ TNCIS): GOTO 3580 } 
3600 PRINT DS;"PR#0": GOTO 200 
4000 REM »•»»«««»»«««»««««««« COMMANDE A 
4010 AS = OAS: GOTO 205 

4500 REM ..««««««««»»««««.«.« COMMANDE T 
4510 IS = 0: GOTO 200 

5000 REM •»»«»««#«»»«««»»«»»* COMMANDE B 
5010 IS = TUCIMAX): PRINT SOURCES(IS): GOTO 2 
00 

5500 REM «»»*«»««*«»»»»»»..«« COMMANDE F 
5510 PRINT DS;"OPEN TEMPO" ;NDS 
5520 PRINT DS; "WRITE TEMPO" 
5530 IS = 

5540 IF TN(IS) = IMAX THEN 5580 

5550 PRINT SOURCES(TNCIS) ) :IS = TN(IS): GOTO 
5540 

5580 PRINT DS; "CLOSE TEMPO" 

5590 PRINT DS ; "DELETE" ; NAS 

5600 PRINT DS; "RENAME TEMPO,"; NAS: END 

6000 REM »««»«.«.«. »««»«».«.« COMMANDE J 

6010 GOSUB 1200: IS = 

6020 IS = TN(IS): IF IS = IMAX THEN 8510 
6030 C = VAL (SOURCES(IS) > : IF C < > B THEN 
6020 

6040 PRINT SOURCESCIS): GOTO 200 

6500 REM »»«»«#.««.»..««»«.»« COMMANDE W 

6505 J = 2:BA = 0:A1S = MIDS <AS,J,1>: IF Al 

S = ■■«" THEN J = 3:BA = 1 
6510 GOSUB 8000: GOSUB 8100: NFS = BS 
6520 GOSUB 8000: GOSUB 1205 

6580 PRINT DS;"OPEN";NFS;DIS: PRINT DS;"WRIT 
E";NFS 

6590 IF IS = THEN IS = TN<0) 

6600 IF IS = IMAX THEN PRINT DS; "CLOSE" ; NFS 

: GOTO 8510 
6605 CS = SOURCES(IS): IF BA = THEN 6615 
6610 C = VAL <CS>: IF C > B THEN 6630 
6615 PRINT CS: IF BA = 1 THEN IS = TNCIS): G 

OTO 6600 

6620 B = B - 1: IFB>0 THEN IS = TN(IS): GO 
TO 6600 

6630 PRINT DS;"CLOSE";NFS: GOTO 200 

7000 REM »»»««»»«»»»»«*«»»»»» COMMANDE G 

7005 J = 2:BA = 0:A1S = MIDS <AS,J,1): IF Al 

S ■ "«" THEN J = 3:BA = 1 
7010 GOSUB 8000: GOSUB 8100: NFS = BS 
7020 GOSUB 8000: GOSUB 1205: PI = B 
7030 GOSUB 8000: GOSUB 1205 :P2 = B 
7040 IF PI < 1 OR PI > P2 THEN 1230 
7050 PRINT DS;"OPEN":NFS;DIS: PRINT DS; "READ 

";NFS 

7060 ONERR GOTO 7210 j, 
7070 1=0 

7080 i = i* i:cs = "": s. input cs 

7090 IF BA = 1 THEN I = VAL (CS) 

7100 IF I < PI THEN 7080 L 
7110 IF I > P2 THEN 7220 
7120 PRINT : PRINT CS 

7130 SOURCES(IX) = CS: IF IS = IMAX THEN IS = 
TU(IS) 

7140 TUCIX) = IS:TU(TN(IS) ) = IX:TN(IX) = TN< 

is):tn<is) = ix:is « ix:ix » IX + X: G 

OTO 7080 

7210 IF PEEK <222> < > 5 THEN 9000 
7220 PRINT DS; "CLOSE" ; NFS 
7230 POKE 216,0 
7240 GOTO 200 

7500 REM ....».......««.«..«. COMMANDE R 
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7510 
7520 
7530 
7540 
7600 
7610 
7620 

aooo 
soio 

8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 

8120 



8130 
8500 
8510 
9000 
9500 
9510 

9520 



9530 
9540 

9550 
9560 
9570 
9580 
9590 

9600 

9610 
9620 

9630 
9640 

9650 
9660 



IF IS = O OR IS = IMAX THEN 8510 
IF B = 1 THEN CS = "": GOTO 7540 
CS = RIGHTS (AS,B - 2) 
SOURCES (IS) = CS: GOTO 200 
REM ..............a..... COMMANDE Q 

IF NW = O THEN END 
PRINT DS ; "DELETE" ; NAS : END 
REM ... S/P DE RECHERCHE DE PARAMETRE 
I = J: IF I > LEN CAS) THEN 1230 

< > •• •• THEN 8050 

LEN (AS) THEN 1230 



IF MIDS (AS, 1,1) 

1=1*1: if i > 

GOTO 8020 
J = I 

IF MIDS (AS.J.l) 

J " J * 1 ! IF J > 

GOTO 8060 

BS = MIDS (AS, I, J - I) : 

REM »»•• 

DIS = NDS: 



LEN 



" THEN 8090 
(AS) THEN 8090 



IF 



RETURN 

» ANALYSE NOM DE FICHIER 
LEN (BS) < 4 THEN RETURN 



IF MIDS (BS, LEN (BS) - 2,2) = ",D" TH 
EN DIS = RIGHTS (BS,3):BS = LEFTS (B 
*., LEN (BS) - 3) 

RETURN 

REM ».««...«...«........ MESSAGES 

PRINT "FIN DE FICHIER": GOTO 200 
PRINT "ERREUR BASIC "; PEEK (222): END 
REM ........... MENU S, MODES D'EMPLOI 

HOME : PRINT TAB ( 7);: INVERSE : PRINT 

"LISTE DES COMMANDES": NORMAL 
PRINT : INVERSE : PRINT "N" ; : NORMAL : 
PRINT TAB ( 3) ; "PROGRESSION" ; : PRINT 
TAB ( 20);: INVERSE : PRINT "C";: NORMA 
L : PRINT TAB ( 22 ) ; "CHANGEMENT" 
PRINT : INVERSE : PRINT "U";: NORMAL : 
PRINT TAB ( 3) ;"RECUL"; : PRINT TAB ( 2 
0);: INVERSE : PRINT "A";: NORMAL : PR 
■REPETITION" 

PRINT "T" ; : NORMAL : 
: "DEBUT DE FICHIER";: PR 
: INVERSE : PRINT "P" ; : 
TAB ( 22) ;"VISUALISATIO 



INT TAB ( 22) ;' 
PRINT : INVERSE 
PRINT TAB ( 3); 
INT TAB ( 20);: 
NORMAL : PRINT 
N" 

PRINT : INVERSE : PRINT "B";: NORMAL : 
PRINT TAB ( 3);"FIN DE FICHIER";: PRIN 
T TAB ( 20);: INVERSE : PRINT "W";: NO 
RMAL : PRINT TAB ( 22) ; "EXTRACTION" 

PRINT : INVERSE : PRINT "J";: NORMAL : 
PRINT TAB ( 3) ; "POSITIONNEMENT" ; : PRIN 
T TAB ( 20);: INVERSE : PRINT "G";: NO 
RMAL : PRINT TAB ( 22) ; "INTEGRATION" 

PRINT : INVERSE : PRINT "D" ; : NORMAL : 
PRINT TAB ( 3) ; "SUPPRESSION" ; : PRINT 
TAB ( 20);: INVERSE : PRINT "F" ; : NORMA 
L : PRINT TAB ( 22);"FIN D'EDITION" 

PRINT : INVERSE : PRINT "I";: NORMAL : 
PRINT TAB ( 3) ; "INSERTION"; : PRINT TA 
B< 20);: INVERSE : PRINT "Q" ; : NORMAL 
: PRINT TAB ( 22); "ABANDON D' 

PRINT : INVERSE : PRINT "R" 
PRINT TAB ( 3) ; "REMPLACEMENT" ; : PRINT 
TAB ( 20);: FLASH : PRINT "?";: NORMAL 
: PRINT TAB( 22); "LISTE COMMANDES": 
PRINT : RETURN 

PRINT : INVERSE : PRINT "N P";: NORMAL 
: PRINT TAB ( 12) ; "PROGRESSION DE P LI 
GNES DANS- 
PRINT TAB ( 12);"LE FICHIER (PAR DEFAUT 
P = l) ." 

PRINT : INVERSE : PRINT "N/CHAINE" ; : NO 

RMAL : PRINT TAB ( 12 ); "PROGRESSION JU 

SQU'A LA LIGNE" 
PRINT TAB ( 12);"0U APPARAIT LA CHAINE. 

": GOTO 200 
PRINT : INVERSE : PRINT "U P";: NORMAL 

: PRINT TAB ( 12>;"RECUL DE P LIGNES D 

ANS LE" 

PRINT TAB ( 12) ;"FICHIER (PAR DEFAUT P= 
1) ." 

PRINT : INVERSE : PRINT "U/CHAINE" ; : NO 



•EDITION- 
NORMAL : 



3670 
9680 

9690 

9700 
9710 



9720 
9730 
9740 
9750 
9760 



9770 

9780 

9790 
9800 
9810 
9820 

9830 
9840 

9850 

9860 

9870 
9880 



9890 
9900 



9910 



9920 



9930 



9940 



9950 



9960 



RMAL : PRINT TAB ( 12);"RECUL JUSQU'A 
LA LIGNE OU" 
PRINT TAB ( 12) ; "APPARAIT LA CHAINE.": 
GOTO 200 

PRINT : INVERSE : PRINT "D P" ; : NORMAL 
: PRINT TAB ( 7) ; "EFFACEMENT DE P LIGN 
ES A PARTIR" 
PRINT TAB ( 7); 

AR DEFAUT" 
PRINT TAB ( 71, 



'DE LA LIGNE COURANTE (P 



PRINT ! 
NE2"; : 
EMENT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT : 
INE2" : 



INVERSE 
NORMAL : 
LA* 



••p=i) .": 

: PRINT 
: PRINT 



GOTO 200 
"C/CHAINE1/CHAI 
TAB ( 20); "CHANG 



DE 

TAB ( 20); 
TAB ( 20); 
TAB ( 20); 
TAB ( 



: "LIGNE COURANTE EN" 
: "REMPLACANT CHAINE1" 
:"PAR CHAINE2, EVEN-" 
20) ; "TUELLEMENT VIDE." 
INVERSE : PRINT "C« /CHAINE 1 /CH A 
: NORMAL : PRINT TABC 20);"LE 
REMPLACEMENT DE" : PRINT TAB ( 20>;"CHA 
INE1 PAR CHAINE2" 
PRINT TAB ( 20); "EST EFFECTUE DANS": 
PRINT TAB ( 20);"T0UTES LES LIGNES": 
PRINT TAB ( 20);"0U APPARAIT CHAINE1. 
": GOTO 200 
PRINT : INVERSE : PRINT "I";: NORMAL : 
PRINT TAB ( 4) ; "INSERTION DE UNE OU PL 
USIEURS LIGNES" 
PRINT TAB ( 4 ) ; "DERRIERE LA LIGNE COURA 
NTE . " 

PRINT : PRINT TAB ( 4>;"LA FIN DE L'INS 

ERTION EST INDIQUEE" 
PRINT TAB ( 4>;"PAR UNE LIGNE # . " : GOTO 
200 

PRINT : INVERSE : PRINT "P N";: NORMAL 

: PRINT TAB ( 6); "VISUALISATION DE N L 

IGNES A PARTIR" 
PRINT TAB ( 6);"DE LA LIGNE COURANTE 

(PAR DEFAUT": PRINT TAB ( 6);"N=1>." 
PRINT : INVERSE : PRINT "P« N" ; : NORMAL 
: PRINT TAB ( 6);"LISTE OBTENUE SUR L 

' IMPRIMANTE . " : GOTO 200 
PRINT : INVERSE : PRINT "A";: NORMAL : 

PRINT TAB ( 4) ; "REPETITION DE LA COMMA 

NDE PRECEDENTE . " : GOTO 200 



PRINT 



NORMAL 



; "POSITIONNEMENT DEVANT 

•LIGNE DU FICHIER.": GOT 

! PRINT "B" ; : NORMAL : 
•POSITIONNEMENT SUR LA 



PRINT : INVERSE 

PRINT TAB ( 4); 

LA PREMIERE- 
PRINT TAB ( 4);' 

200 
PRINT : INVERSE 

PRINT TAB ( 4); 

DERNIERE LIGNE" 
PRINT TAB ( 4);"DU FICHIER.": GOTO 200 
PRINT : INVERSE : PRINT "F";: NORMAL : 

PRINT TAB ( 4);"FIN DE L' EDITION . " : GO 

TO 200 

PRINT : INVERSE : PRINT "J P" ; : NORMAL 
: PRINT TAB ( 6) ; "POSITIONNEMENT SUR U 
NE LIGNE BASIC": PRINT TAB ( 6);"DESIG 
NEE PAR SON NUMERO (P).": GOTO 200 
PRINT : INVERSE : PRINT "W NF P";: NORM 
AL : PRINT TAB ( 9);"ECRITURE DE P LIG 
NES A PARTIR": PRINT TAB ( 9>;"DE LA L 
IGNE COURANTE DANS LE": PRINT TAB ( 9 
);"FICHIER DE NOM NF." 
PRINT : INVERSE : PRINT "W« NF P";: NOR 
MAL : PRINT TAB ( 9) '; "ECRITURE JUSQU'A 
LA LIGNE": PRINT TAB ( 9); "BASIC DE N 
UMERO P.": GOTO 200 
PRINT : INVERSE : PRINT "G NF PI P2";: 
NORMAL : PRINT TAB ( 13) ; "INSERTION DE 
RRIERE LA LIGNE" : PRINT TAB ( 13);"C0U 
RANTE DE LIGNES ISSUES- 
PRINT TAB( 13);"DU FICHIER DE NOM NF." 
: PRINT : PRINT TAB ( 13);"P1 = RANG D 
ANS LE FICHIER": PRINT TAB ( 13); "CITE 
DE LA PREMIERE LIGNE" 
PRINT TAB ( 13); "A INSERER <1<=P1),": P 
RINT : PRINT TAB ( 13>;"P2 = RANG DE 
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PRINT TAB ( 13); "LIGNE ( 



LA DERNIERE' 
PK = P2) ." 

9970 PRINT : INVERSE : PRINT "G« NF PI P2";: 
NORMAL : PRINT TAB< 13) ; "PI ET P2 SO 

NT DES NUMEROS" : PRINT TAB ( 13);"DE L 

IGNES BASIC": GOTO 200 
9980 PRINT : INVERSE : PRINT "R CHAINE" ; : NO 

RMAL : PRINT TAB < 11 > ; "REMPLACEMENT D 

E LA LIGNE": PRINT TAB < 11); "COURANTE 
PAR CHAINE.": GOTO 200 
9990 PRINT : INVERSE : PRINT "0";: NORMAL : 

PRINT TAB C 4); "ABANDON DE L' EDITION." 

: GOTO 200 

10000 DATA "NEXT" , "UP" , "DELETE" , "CHANGE" , " 
INSERT" , "PRINT" , "AGAIN" , "TOP" , "BOTTOM" 
, "FILE" , "JUMP" , "WRITE" , "GET" , "REPLACE" 
,"OUIT" 
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260 
270 
280 

290 



300 
310 
350 

355 
360 
370 



GOTO 230 

REM ..... COMMANDES DE MISE EN PAGE 
GOSUB 80: FOR C = 1 TO 7 : IF LS = MIDS 

( "SLPTM " + CTS.C.l) THEN 300 
NEXT : PRINT "ERREUR TEXTE SOURCE": PRIN 
T "LIGNE ";IX: PRINT : PRINT SOURCES (I 
X) : GOTO 910 
ON C GOTO 350,350,380,350,380,310,230 
C = 2:N = O: GOTO 380 
GOSUB 80: IF LS = " " OR LS = CHRS (13) 
THEN 360 
NS = NS * LS: GOTO 350 

IF LEN CNS) = O THEN N = 1: GOTO 380 
N = VAL <NS> 



INDICATEUR DE MAJUSCULE 
DIM TWS(40) , SOURCES < 1000 ) : 



10 REM ..... COMPOSITEUR DE TEXTE COMPOS 
20 REM ..... G. HISLEUR 

30 NL = 66: REM NBRE DE LIGNES PAR PAGE 
40 LL = 75: REM NB DE CARACTERES PAR LIGNE 
50 CTS = CHRS (93) : REM INDICATEUR DE COMMA 

NDE 0> 
60 IMS = "S": REM 
65 DS = CHRS C4) : 
GOTO 1500 

70 REM ..... RECHERCHE DE CARACTERE 
80 IF IX = MAX THEN 900 

85 IF IC > LEN (SOURCES(IX) > THEN LS = CHR 

s ci3>:ic = i:ix = ix * 1: return 

90 LS = MIDS (SOURCES(IX) ,IC,1) :ic = IC * 1 : 
RETURN 

ic = i:il = i:ix = i:mj = i:s = o 
I = 1 :TL = s:t = s 

WS = "" 
GOSUB 80 :C = 0:NS = "" 

IF LS = " " OR LS = CHRS (13) THEN 400 
IF LS = CTS THEN 270 
IF LS < > IMS THEN 200 
GOSUB 80: IF LS = IMS THEN 240 
IF MJ = 2 THEN M J = O : GOTO 140 
190 MJ = 2: GOTO 140 

200 IF LS < > AND LS < > " ! " AND LS < 

> "?" THEN 215 
IF MJ = THEN MJ = 1 
GOTO 240 

IF A = 1 THEN 250 
IF MJ = THEN L = ASC 



100 
110 
120 
130 
140 
150 
160 
170 
180 



205 
210 
215 
220 



(LS) : 

65 AND L < =90 THEN LS = 

32) 

230 IF MJ = 1 THEN MJ = O 
240 WS = WS ♦ LS: GOTO 130 
250 IF MJ > O THEN L = ASC (LS) : 



65 AND L 
64) 



90 THEN LS 



IF L 
CHRS 



IF L 
CHRS 



> 
(L 



> 

(L - 



COMEICO Un vrai discounteur !!! 

annonce l'arrivee prochaine des micros du futur : 

LES MULTI-COMPATIBLES 

En fichez I'interface I vous avez le langage FORTH™, I'interface II vous avez un IBM-PC™, I'interface III vous etes 
compatibles APPLE™ (et vous pouvez vous meme construire I'interface III un jeu d'enfant !!!) 

PRIX TVA COMPRISE 



- Diskettes 5" 1/4 3M - SF - DD les 10 189,00 F 

les 100 1 790,00 F 

- Disk Drive pour Apple™ 

(mecanismes Siemens : la "Rolls" des Drives I!) 2 950,00 F 

- Carte memoire 16 K 770 00 F 

- Carte 80 colonnes \ 155 qq p 

- Carte imprimante parallele 890,00 F 

- Carte controlleur pour Drive 675 00 F 

- Imprimante type Nec 8023 4 950 00 F 

SEIKOSHA GP 100 A WW. 2 350,'oO F 

- Monitor grande marque 12" Vert 1 150^00 F 

- Reveil LCD a fixer sur Monitor 79,'oO F 

AVENIR : UN MICRO 64K + DRIVE + MONITOR 9 950 00 F 

A VENIR : FRANKLIN (le compatible APPLE™ U.S., MEDFLY™, des compatibles 
ATARI™ , COLECO™, TRS-80™ KEEP CONTACT ! ! ! 

COMEICO SARL, 89, R de Dunkerque 75009 PARIS M ANVERS Tel. : 878.48.61 

TLX : 643 181 F COMEICO 

(Chercheurs frangais, pouvons realiser vos projets a bas prix en Extreme-Orient grace a nos bureaux a Hong-Kong, Taiwan. 
Contacter M r LONG) - 
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380 IF MJ = THEN MJ = 1 
390 IF TL = T THEN 550 
400 REM ..... FIN DE MOT 
410 IF LEN (WS) » C = THEN 130 
420 IF LEN <WS) = AND C > THEN 470 
430 IF TL = AND C > THEN 550 
440 WS = •••• + WS: IF TL * LEN (WS) > LL THE 
N 500 

460 TWS(I) = WS:I = I * l:TL = TL + LEN (WS) 

: IF C = O THEN 120 
470 D = 0:WS = "": GOTO 520 
500 REM ..... FIN DE LIGNE 
510 D = LL - TL 

520 GOSUB 1000:TWS5(1) =ws:i=2:tl=s* L 
en cws>:t = s: if c = o then 120 

540 if len (ws) > o then 470 

550 t = 0:ws = mids < sources < ix ), ic , len (so 
urces(ix)) - ic * 1): on c goto 610.56 

0,580,600,590 
560 IF N < 1 THEN 110 

570 FOR L = 1 TO N: GOSUB lOOO: NEXT : GOTO 
110 

580 GOSUB 1300: GOTO 110 

590 T = INT <(LL - LEN (WS)> / 2): I = 1: GO 

TO 120 
600 S = N 

610 T = N : TL = N: GOTO 120 

900 IF TL > O THEN D = O: GOSUB 1000 

910 ON A GOTO 940,920,930 

920 PRINT DS;"PR#0": GOTO 940 

930 PRINT DS; "CLOSE" ; NBS 

940 END 

1000 REM ..... IMPRESSION D'UNE LIGNE 
1010 BS = IF I = 1 THEN 1150 

1020 IF T = O THEN 1040 

1030 FOR L = 1 TO T : BS = BS * " " : NEXT :T = 


1040 BS = BS - TWS(l): IF I < 3 THEN 1150 



1060 K = INT <D / <I - 2)):K1 = D - K « (I - 
2): FOR L=2T0I-Kl-l:IFK=0 
THEN 1100 

1090 FOR M = 1 TO K:BS = BS * " ": NEXT M 
1100 BS = BS ♦ TWS(L): NEXT L: IF Kl = O THEN 
1150 

1120 FOR L = I - Kl TO I - I! FOR M = 1 TO K 
* i:bs = bs * ■• ••: next m:bs = bs ♦ T 

WS(L) : NEXT L 
1150 IF A = 1 AND LEN CBS) > O THEN 1190 
1160 PRINT BS 

1170 IL = IL * l: IF IL = NL - 5 THEN GOSUB 

1300 
1180 RETURN 

1190 FOR M = 1 TO LEN CBS):LS = MIDS <BS,M 
,1):L = ASC CLS>: IF L > =1 AND L < 
= 26 THEN LS = CHRS <L ♦ 64): INVER 

SE 

1210 PRINT LS;: NORMAL : NEXT : PRINT "": GO 
TO 1170 

1300 REM ..... SAUT DE PAGE 
1310 IF A = 1 THEN 1340 

1320 FOR L = 1 TO NL - IL - l: PRINT : NEXT 
1330 IL = l: RETURN 

1340 PRINT TAB < 39): GET ZS: VTAB (24): HTA 
B (1): GOTO 1330 

1500 REM ..... DIALOGUE INITIAL 

1510 HOME : PRINT TAB ( 8);: INVERSE : PRINT 
"COMPOSITEUR DE TEXTE" : NORMAL : PRIN 
T : PRINT : PRINT "LE TEXTE COMPOSE PE 
UT ETRE GENERE : " : PRINT 

1520 PRINT TAB ( 5);: INVERSE : PRINT "1":: 
NORMAL : PRINT TAB ( 8):"SUR ECRAN" : P 
RINT : PRINT TAB ( 5);: INVERSE : PRIN 
T "2";: NORMAL : PRINT TAB ( 8);"SUR I 
MPRIMANTE": PRINT : PRINT TAB ( 5);: I 
NVERSE : PRINT "3";: NORMAL : PRINT T 
AB( 8) ;"SUR DISQUE" 




ControleX 



CX Dose iOO 

LA GESTION DE FICHIERS 
TOUS AZIMUTS. 



Un seul prog ramme , une multitude 
d'app lications: CX Base 100 est l'outil 
indispensable pour suivre vos clients, vos 
patients, vos commandes, vos fournis- 
seurs, pour gerer votre tresorerie, votre 
documentation, vos articles en stocks, 
pour niettre a jour vos tarifs, calculer la 
paie de vos employes, etc. 

Un prog ramme sim p le et com p let : 

Nul besoin de connaitre I'informatique; 
definissez vous mgme votre modele de 
fichier; vous. pourrez, a tout moment, 
sans avoir a reecrire les donnees, ajouter 
ou retrancher des rubriques; classez, 
selectionnez vos fiches de multiples 
faoons, par mots cles ou selon une combi- 
naison de criteres tels que "egair "plus 
grand que;' "plus petit quel' "different," 
"compris entre"; faites toutes sortes de 
calculs; corrigez automatiquement une 
selection de fiches; presentez les infor- 
mations de votre choix sous differentes 
formes (etats, etiquettes) et dans n'im- 
porte quel ordre (alphabetique, numeri- 
que, chronologique), etc. 

"Actuellement en promotion. 

Sicob Boutique N°67 



Un prog ramme p arfaitement mo- 
dulaire: CX Base 100 est un des pro- 
grammes de CX Systeme. Si vos besoins 
evoluent, vous pourrez, a tout moment, 
completer votre programme et, en parti- 
culier, acceder a CX Texte pour un traite- 
ment de texte totalement integre avec vos 
fichiers. 



CX Base 100 est un logiciel francais deve- 
loppe par ContrSle X, et presente dans un 
coffret luxueux avec une documentation 
complete, abondamment illustree. 
C'oiilrolt- X . Tour Maine- Montparnasse. 33, 
avenue du Maine, 75755 Paris. Cedex 15. 
(En Belgique, N6otron, 37, rue de Florence, 
1050 Bruxelles). 



Nom. 



i 

' Soci6te_ 
I Adresse. 

I 



"demanlTede"' 

documentation 



Tel. 
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1530 PRINT : INPUT "QUE CHOISISSEZ-VOUS ?";A 
1540 PRINT : PRINT "NOM DU FICHIER SOURCE 7" 

;: 6. INPUT nss:dss = ",D1": IF LEN ( 

NSS) < 4 THEN 1630 
1560 IF MIDS <NSS, LEN (NSS) - 2,2) = ",D" 

THEN DSS = RIGHTS <NSS,3):NSS » LEFT 

9 (NSS, LEN (NSS) - 3) 
1630 PRINT DS ; "OPEN" ; NSS ; DSS : PRINT DS ; "READ 

";NSS: ONERR GOTO 1660 
1650 I - I ♦ l: & INPUT SOURCES (I): GOTO 165 



1660 IF PEEK (222) < > 5 THEN PRINT "ERRE 
UR BASIC PEEK (222): END 



1670 PRINT DS;"CLOSE";NSS:MAX = I: POKE 216, 

O: ON A GOTO 1690,1700,1710 
1690 LL = 39INL = 29: HOME : GOTO 100 
1700 PRINT DS;"PR#1": PRINT CHRS (9);"80N": 
GOTO 100 

1710 PRINT : PRINT "NOM DU FICHIER OBJET ?"; 

: & INPUT NBS : DBS = DSS: IF LEN (NBS 

) < 4 THEN 1770 
1760 IF MIDS (NBS. LEN (NBS) - 2.2) = ",D" 

THEN DBS » RIGHTS (NBS,3):NBS = LEFT 

S (NBS, LEN (NBS) - 3) 
1770 PRINT DS;"OPEN";NBS;DBS: PRINT DS;"WRIT 

E";NBS: GOTO 100 



Fichier EDIT 


9380- 


57 


93 


20 


F5 


E6 


CO 


86 


07 


9478- 


F5 E6 86 


OB 


E8 8fl 09 


BO 


BRUN PR0GR48K 
RUN PROGR.EDIT 

C 


9388- 
9390- 
9398- 


4C 
08 
05 


57 
4C 
08 


93 
57 
85 


20 
93 
24 


F5 
05 
20 


E6 
07 
22 


CO 
85 
FC 


86 

25 
05 


9480- 
9488- 
9490- 


85 OC ft9 
85 25 4C 
20 2D FF 


01 
C3 
4C 


85 09 05 
94 20 84 
DO 03 00 


06 
FE 
20 




9300- 


06 


FO 


12 


20 


Bl 


00 


C9 


22 


9498- 


15 95 05 


09 


C9 02 BO 


15 


Fichier COMPOS 


9308- 
93B0- 


FO 
03 


08 
93 


09 
20 


80 
Bl 


20 
00 


ED 
96 


FD 
09 


4C 
FO 


9400- 
9408- 


05 08 04 
93 88 DO 


OB 
F9 


88 18 6D 
85 25 05 


18 

OB 


BRUN PR0GR48K 

RUN PROGR. COMPOS , 


93B8- 


19 


95 


32 


48 


20 


84 


FE 


09 


94B0- 


85 09 4C 


C3 


94 20 15 


'95 


93C0- 


ftt 


20 


ED 


FD 


CO 


DO 


F9 


06 


94B8- 


05 25 69 


00 


ED 18 93 


35 




93C8- 


09 


20 


10 


FC 


Cfl 


DO 


FO 


68 


94C0- 


25 C6 09 


20 


80 FE AD 
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Programme 
PROGR 48 K 


93D0- 
93D8- 
93E0- 


85 
BD 
FF 


32 
FF 

01 


20 
01 
29 


6F 
C9 
7F 


FD 
83 
9D 


80 

FO 
FF 


FO 
10 
01 


IE 
BD 
CO 


94C8- 
94D0- 
94D8- 


93 8D % 

10 CO 2C 
00 CO 2C 


94 

00 
10 


20 43 95 
CO 10 FB 
CO C9 95 


2C 
9D 

FO 


♦9300. 9569 


93E8- 


DO 


F5 


09 


00 


00 


02 


02 


8D 


94E0- 


40 C9 88 


FO 


B2 C9 9B 


FO 




93F0- 


20 


E9 


E3 


20 


90 


DO 


02 


00 


94E8- 


51 C9 8D 


FO 


OC C9 Bl 


90 


9300- 09 4C BD F5 03 09 IB 8D 


93F8- 


60 


20 


3fi 


FF 


4C 


DO 


03 


20 


94F0- 


El C5 OC 


BO 


DD 29 OF 


85 


9308- F6 03 09 93 8D F7 03 09 


9400- 


25 


94 


dC 


ul 


D9 


20 


25 


94 


94F8- 


09 68 85 


83 


68 85 84 


P9 


9310- 00 85 73 09 93 85 74 60 


9408- 


ft9 


03 


20 


D6 


D3 


05 


B9 


48 


9500- 


00 04 09 


20 


F2 E2 06 


84 


9318- 02 BE 80 C9 84 FO ID C9 


9410- 


05 


BS 


48 


05 


76 


48 


05 


75 


9508- 


A4 83 20 


2B 


EB 09 00 




9320- OB FO 13 C9 BO FO 12 C9 


9418- 


48 


09 


BO 


48 


20 


B7 


00 


20 


9510- 


24 20 84 


FE 


60 20 84 


FE 


9328- B5 FO 08 C9 00 DO 03 4C 


9420- 


41 


D9 


4C 


D2 


D7 


20 


Bl 


00 


9518- 


09 00 8D 


96 


94 20 50 


95 


9330- 4E 94 60 4C 2F 94 4C FF 


9428- 


20 


67 


DD 


20 


52 


E7 


60 


20 


9520- 


60 20 15 


95 


05 09 C5 


OB 


9338- 93 4C 05 94 04 25 84 07 


9430- 


Bl 


00 


92 


FF 


2C 


10 


CO 


Cfl 


9528- 


90 03 4C 


82 


94 05 25 


18 


9340- 04 24 84 08 09 00 85 09 


9438- 


FO 


13 


RC 


19 


93 


86 


FO 


F7 


9530- 


6D 18 93 


85 


25 E6 09 


4C 


9348- 85 06 20 Bl 00 20 E3 DF 


9440- 


09 


OR 


20 


08 


FC 


2C 


00 


CO 


9538- 


C3 94 20 


58 


FC 20 84 


^E 


9350- 20 6C DD 85 85 84 86 AO 


9448- 


10 


F3 


2C 


10 


CO 


60 


20 


Bl 


9540- 


C DO 03 


05 


25 C9 18 


90 


9358- 00 Bl B8 C9 2C DO 35 20 


9450- 


00 


20 


E3 


DF 


48 


98 


48 


20 


9548- 


04 09 17 


85 


25 20 22 


FC 


9360- Bl 00 C9 4C FO 14 C9 56 


9458- 


F5 


E6 


CO 


EO 


18 


BO 


2E 


86 


9550- 


04 06 C4 


07 


DO 06 AD 


96 


9368- FO 18 C9 48 FO ID C9 22 


9460- 


08 


20 


F5 


E6 


80 


FO 


26 


Cfl 


955B- 


94 91 28 


60 


Bl 28 09 


60 


9370- DO 05 E6 06 4C 94 93 4C 


9468- 


86 


06 


20 


F5 


E6 


89 


16 


65 


9560- 


25 32 91 


28 


C8 C4 07 


90 


9378- 8D 94 20 F5 E6 86 09 4C 


9470- 


06 


C9 


29 


BO 


18 


85 


07 


20 


9568- 


F3 60 









3 MACHINES 

POUR LE PRIX D'UNE SEULE 

UNE IMPRIMANTE 

Qualite courrier 

UNE MACHINE A ECRIRE 

Avec marguerites interchangeables 
UN TERMINAL 

Avec clavier francais pour la rentree des donnees 

T.F. SYSTEMES propose toute la gamme UNDERWOOD- 
OLIVETTI interfacee pour votre APPLE depuis I'UNDERWOOD 
3000 5000 F H.T. avec interface jusqu'6 I'UNDERWOOD 7500 
12000 FH.T. avec interface. 




CARTE APPLE 

emission/reception 



VOTRE APPLE 



TOTALE FORMATION 

T.F. SYSTEMES 

114, avenue Charles-de-Gaulle 92200 Neuilly - Tel. 745.62.73 
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Fusion de tables de shapes 

par Denis Sureau 



UFS permet de fusionner deux tables 
de shapes d'origines differentes en 
une seule, en renumerotant les 
shapes de la seconde dans la succes- 
sion de celles de la premiere, et dis- 
pense ainsi d'alterner les deux tables 
comme on le ferait avec les deux 
POKEs classiques (POKE 232, 
Adresse Basse et POKE 233, Adresse 
Haute) si Ton avait voulu utiliser 
deux tables de shapes avec un 
meme programme. 

La logique des operations se deduit 
naturellement de la structure d'une 
table de shapes de 1' Applesoft, que 
Ton peut rappeler ici en quelques 
mots. 

Le manuel de reference de 1' Apple II 
(page 95) illustre cette structure par 
un shema representant une table ou 
Ton distingue trois parties : 

1 - La taille de la table occupe les 
deux premiers octets. Toutefois, 
comme cette taille est limitee a 255, 
seul le premier octet est effective- 
ment utilise. 

2 - La table d'adresses occupe autant 
de fois deux positions qu'il y a de 
shapes dans la table. Le premier 
octet, comme il se doit, contient la 
partie basse de 1' adresse de la shape 
correspondante, le second la partie 
haute. 

3 - Comme dans la table des adres- 
ses, les shapes se suivent dans l'or- 
dre de la numerotation utilisee par 
les instructions DRAW et XDRAW et 
elles forment la troisieme partie de la 



table. Chaque shape est terminee par 
un 0. 

Partant de la, fusionner deux tables 
revient au traitement suivant : 

1 - Additionner les nombres de 
shapes et placer le resultat obtenu au 
debut du nouveau module. 

2 - Mettre bout a bout les deux 
tables d'adresses en rectifiant leurs 
valeurs. Ce sont bien sQr des adres- 
ses relatives qui se comptent par rap- 
port au debut de la table de shapes. 

Les adresses dans la premiere table 
sont augmentees de la taille de la 
partie 2 de la seconde qui s'intercale 
entre les parties 2 et 3 de la pre- 
miere. Les adresses de la seconde 
table sont augmentees des tailles des 
parties 2 et 3 de la premiere. 

3 - Apres les deux tables d'adresses, 
on met bout a bout les deux blocs 
de shapes. 

Le petit schema qui suit devrait aider 
a mieux suivre les calculs effectues 
par le programme. 



TABLE 1 


TABLE 2 


FUSION 


1) Taille 


1) Taille 


1) Taille 


Nl prend 2 


N2 prend 2 


N3=N1+N2sur 


octets 


octets 


2 octets 


2) Adresses 


2) Adresses 


2) Adresses 


N1.2 octets 


N2»2 octets 


(Nl+N2).2 






octets) 


3) Shapes 


3) Shapes 


3) Shapes 


XI octets 


X2 octets 


X1+X2 octets 



Le programme met en oeuvre ces 
principes en essayant de tenir 



compte des particularites des editeurs 
de shapes existants quant aux tables 
qu'ils produisent. Des octets sans 
emploi peuvent s'intercaler entre 
deux parties normales d'une table, 
aussi calcule-t-on les points de depart 
de chaque champ sans les presuppo- 
ser sur la position suivant directe- 
ment le champ precedent. 

Notons que certains de ces editeurs, 
et parmi les meilleurs, ne permettent 
de produire qu'un nombre limite de 
shapes, ce qui fait l'interet du present 
programme a leur endroit 

Pour utiliser le programme, inserez la 
(les) disquette(s) contenant les deux 
tables de shapes lorsque le pro- 
gramme demande leurs noms pour 
les charger. En appuyant sur "?" puis 
RETURN, on obtient un catalogue 
pr^alable. La fusion s'opere sans in- 
tervention et le programme demande 
ensuite sous quel nom doit etre 
sauve le module. Inserez la disquette 
qui doit le contenir avant d'en don- 
ner le nom. En appuyant seulement 
sur RETURN, on annule 1' operation. 

Le nombre de shapes correspond 
theoriquement au total des shapes 
contenues dans les deux tables primi- 
tives; cela peut toutefois s'averer 
inexact car certains editeurs inscrivent 
un nombre forfaitaire de shapes. 

N.D.L.R. : les fichiers fusionnes doi- 
vent etre "effectivement" des tables 
de shapes, sous peine d'erreurs Ap- 
plesoft, voire pis encore... 



Programme UFS 




210 


LI = 


PEEK (43616) ♦ PEEK (43617) * 










256 








220 


REM 




100 


HIMEM: 8191 








CHARGE SHAPE TABLE 2 


110 


Dl = 16384 




230 


INPUT "NOM DE LA ST #2:":S2S 


120 


DS = CHRS (4) 




240 


D2 = 


Dl ■<■ LI 


130 


REM 




250 


PRINT DS"BLOAD"S2S" , A"D2 




FUSION DE SHAPES 




260 


L2 = 


PEEK (43616) * PEEK (43617) * 




PAR DENIS SUREAU 








256 


140 


HOME 




270 


REM 




150 


LIST 130:A = - 912: CALL A: 


CALL A 






CALCUL D'ADRESSES 




: REM SCROLL 




280 


D3 = 


D2 + L2 








290 


REM 


ARRONDI DE D3 : 


160 


PRINT "DONNEZ '?' POUR AVOIR 


LE CAT 


300 


D3 = 


INT ((D3 + 100) / 100) * 100 




ALOGUE" : PRINT 




310 


Nl = 


PEEK (Dl) 


170 


REM 




320 


N2 = 


PEEK (D2) 




CHARGE SHAPE TABLE 1 




330 


SI = 


PEEK (Dl <- 2) * PEEK (Dl * 3) 


ISO 


INPUT "NOM DE LA ST #1:";S1S 








» 256 - Dl 


190 


IF SIS = "?" THEN PRINT CHRS3 (4)" 


340 


S2 = 


PEEK (D2 * 2) + PEEK (D2 ♦ 3) 




CATALOG": GOTO ISO 








* 256 + D2 


200 


PRINT DS"BL0AD"S1S" ,A"D1 




350 


S3 = 


D3 ♦ 2 * Nl » 2 ♦ N2 * 2 



SfSS8225Sf5iffHWB 
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360 LS = Dl + LI - SI 
370 S4 = S3 * LS 

380 IF (Nl * N2) > 255 THEN PRINT "> 2 

55,TR0P LONG!": END 
390 FLASH : PRINT : HTAB 13: PRINT "<< 

FUSION >>": NORMAL 
400 REM 

COPIE DES ADRESSES DE ST1 

410 J = D3 

420 FOR I = Dl + 2 TO Dl + 2 + Nl * 2 S 

TEP 2 
430 J = J * 2 

440 TEMP = PEEK CI) * PEEK (I * 1) * 2 
56 

450 TEMP = TEMP ♦ N2 * 2 - SI + (Dl +• Nl 

-2 + 2) 
460 POKE J ♦ l.TEMP / 256 

470 POKE J, TEMP - ( PEEK (J ♦ 1) « 256) 
480 NEXT I 
490 REM 

COPIE DES SHAPES DE ST1 
500 FOR I = SI TO SI * LS - 1 
510 POKE S3, PEEK (I):S3 = S3 ♦ 1 
520 NEXT I 
530 REM 

COPIE DES ADRESSES DE ST2 
540 J = D3 + Nl * 2 

550 FOR I = D2 * 2 TO D2 + 2 * N2 STEP 
2 

560 TEMP = PEEK (I) * PEEK (I + 1) » 2 
56 

570 TEMP = TEMP ♦ Nl » 2 ♦ LS - S2 ♦ (D2 

♦ 2 ♦ N2 * 2) 
580 J = J ->■ 2 

590 POKE J + 1,TEMP / 256 

600 POKE J, TEMP - < PEEK (J + 1) - 256) 
610 NEXT I 
620 REM 

COPIE DES SHAPES DE ST2 
630 FOR I = S2 TO D2 + L2 - 1 
640 POKE S4, PEEK ( I > : S4 = S4 ♦ 1 
650 NEXT I 
660 REM 

SAUVEGARDE DE ST3 
670 L3 = S4 - D3 



630 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 

810 

820 
830 
840 
850 
860 
870 
880 



890 
900 
910 
920 

930 

940 

950 

960 

.970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 



> "0" THEN END 



- 16301,0 



POKE D3,N1 * N2 

CALL - 998: CALL - 958 

INPUT "NOB DE LA ST OBTENUE : " ; S3S 

IF S3S = "•• THEN 730 

PRINT DS"BSAVE"S3S" , A"D3" , L"L3 

PRINT 

PRINT "ADRESSE ACTUELLE: " ; D3 
PRINT "VECTEUR:" 
POKE 233, D3 / 256 

POKE 232, D3 - PEEK (233) * 256 
PRINT "POKE 232,"; PEEK (232) 
PRINT "POKE 233,"; PEEK (233) 
REM 

*•» DEMO DES ST FUSIONNEES «*» 
PRINT : PRINT "DEMO (0/N)?";: GET A 
S 

IF AS 
PRINT 
POKE 
HGR 

SCALE= l: ROT= 
VTAB 21: CALL 
PRINT "SHAPE # 

UT SS: IF SS 

ME : END 
HGR 

S = VAL (SS>: DRAW S AT 140,80 
GOTO 870 
REM 

««« LISTE DES VARIABLES «»« 
REM D1=DEBUT ST1 
REM L1=L0NGUEUR ST1 
REM D2=DEBUT ST2 
REM L2=L0NGUEUR ST2 
REM D3=DEBUT ST3 
REM L3=L0NGUEUR ST3 
REM 

REM Nl=# DE SHAPES EN ST1 
REM N2=# DE SHAPES EN ST2 
REM S3=DEBUT SHAPES DE ST1 EN ST3 
REM S4=DEBUT SHAPES DE ST2 EN ST3 
REM S1=DEBUT SHAPES EN ST1 
REM S2=DEBUT SHAPES EN ST2 
REM LS=TAILLE DU BLOC DE SHAPES DE 
ST1 



0: HCOLOR= 7 
- 958 

(1-"N1 ♦ N2")";: 
= "" THEN TEXT 



INP 
HO 



Un editeur graphique HGR 

Jacques Duma 



EDITEUR-HGR est un programme 
simple permettant de realiser des gra- 
phiques en haute resolution a l'aide 
des paddles. \ 



Un curseur peut etre deplace sur 
l'ecran avec les deux poignees. Pour 
marquer la position d'un point, tapez 
"espace" ou "fleche a droite"; "es- 
pace" place seulement le point, alors 
que la fleche trace une ligne entre ce 
dernier et le precedent. La fleche a 
gauche efface ce qui vient d'etre 
trace; on peut ainsi revenir en arriere 
de piusieurs points et corriger les er- 
reurs. 



Lorsque le graphique est terming, 
tapez RETURN. Le programme refait 
le dessin definitif a l'aide des don- 
nees calculees aux fins de verifica- 
tion. 

II peut ensuite etre sauve sous forme 
d'un fichier TEXT recuperable par 
EXEC. Indiquez pour cela le numero 
de ligne a partir duquel vous desirez 
que votre graphique soit stocke sous 
forme de DATA. Les donnees me- 
morises sont les suivantes : 

• le premier nombre est le nombre 
de points 

• les triplets suivants sont les points 
eux-memes - sous la forme A.X.Y 



- ou X et Y sont les coordonnees 
du point, utilisables par HPLOT 
X,Y ou HPLOT TO X,Y selon la 
valeur de A, qui definit le type du 
point (A=0 resulte d'un "espace" 
et A=l d'une "fleche a droite"). 



Le programme DESSINATEUR-HGR 
montre comment utiliser ces lignes 
de DATA. Pour realiser vos propres 
dessins, supprimez les lignes 100 a la 
fin, et faites un EXEC du fichier que 
vous avez prealablement constitue 
avec EDITEUR-HGR. L' execution du 
programme resultant de ces opera- 
tions rendra hommage a vos talents 
graphiques. 
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Programme EDITEUR-HGR 

9 MM = PEEK (115) ♦ PEEK (116) « 256:K 

M = MM - 26: HIMEM: MM - 31 

10 KH = INT (KM / 256) :KL = KM - 256 * 

KH: POKE 232, KL: POKE 233, KH: FOR 
I = KM TO KM + 20: READ EE: POKE 
I, EE: NEXT 

11 DATA 1,0,6,0,21,0,77,36,28,63,63,23, 

54 , 54 , 14 , 45 , 45 , 5 , 32 , 4 , 
20 TEXT : HOME : PRINT "CREATION D'UN D 

ESSIN EN HGR" 
30 PRINT : PRINT : INPUT "NOMBRE MAXIMU 

M DE POINTS ? ";N: DIM TX(2,N) 
40 HOME : PRINT : PRINT "LES CURSEURS D 

EPLACENT LE REPERE" : PRINT : PRIN 

T "SUR L'ECRAN.": PRINT : PRINT : 
PRINT 

50 PRINT : PRINT "'ESPACE' MARQUE UN PO 
INT DE DEPART.": PRINT : PRINT " 
'->' LIE LE POINT AU PRECEDENT 

60 PRINT : PRINT " '<-' REVIENT AU P 
OINT PRECEDENT.": PRINT : PRINT " 
'RETURN' TERMINE L ' ENREGISTREMENT 

70 VTAB 20: PRINT ".../...": VTAB 20: H 

TAB 4: GET RS 
100 HGR : POKE 49234,0: HCOLOR= 3: ROT= 

0: SCALE= 1 
110 TX = 

120 GOSUB 10000:X0* = XX:YOX = Yx 

130 DRAW 1 AT XOX, YOX 

135 PRINT 

140 GOSUB 20000 

150 TEXT : HOME 

160 VTAB 10: PRINT "VOULEZ-VOUS VERIFIE 
R ? ";: GET RS: IF RS < > "O" AN 
D RS < > "N" THEN PRINT CHRS ( 
7> : GOTO 160 

170 IF RS = "N" GOTO 310 

180 HGR : POKE 49234,0: HC0L0R= 3 

190 FOR I = TO TX - 1 

200 IF TX<0,I> = THEN HPLOT TX (1,1), 

Tx<2,I) : GOTO 222 
210 HPLOT TO TXC1,I>,T*<2,I) 
222 NEXT I 
300 GET RS: TEXT 

310 HOME : PRINT "SAUVEGARDE DU TABLEAU 
SOUS FORME DE DATA": PRINT "RECU 
PERABLE PAR EXEC": PRINT : PRIN 
T 

PRINT : PRINT "VOULEZ-VOUS SAUVEGAR 
DER ? " ;: GET RS: IF RS < > "0" 
AND RS < > "N" THEN PRINT CHRS 
(7) : GOTO 315 



315 

316 
317 

318 

320 



520 
530 
540 

550 



PRINT : 
PRINT : 

LI 
PRINT ; 

TE ? 



IF RS = "N" GOTO 610 
INPUT "EN QUELLE LIGNE ? 



INPUT "QUEL NOM POUR LE TEX 
;NOMS: PRINT 
IF LEFTS <N0MS,1) < "A" OR LEFTS 
(N0MS,1) > "Z" THEN PRINT CHRS 
(7) : GOTO 318 
PRINT CHRS (4); "OPEN " ; NOMS 
PRINT CHRS <4> ;"WRITE -" ; NOMS 
TS = STRS (LI) + "DATA" ♦ STRS (TX 

- 1) :l = 
TS = TS * * STRS (TX<0,I)> + 

" ♦ STRS <TX<1,I>) * " ," + STRS 
(TX(2,I>> 



560 IF LEN (TS> > 200 THEN PRINT TS:L 
I = LI + l:TS = STRS (LI) + "DAT 
A": GOTO 590 

570 I = I ' l: IF I > =TX THEN PRINT 
TS: GOTO 600 

580 GOTO 550 

590 1=1+1: IF I<TX THEN TS = TS ♦ 
STRS (TX(0,D) ♦ "," * STRS (T* 
(1,1)) + "," + STRS (TX(2,D): G 
OTO 560 

600 PRINT CHRS (4); "CLOSE " ; NOMS 

610 PRINT : PRINT "TERMINE. AU REVOIR. 



20000 
20010 



20020 



20030 



20040 



20050 



20060 



/ 255 » 279 :YX = PD 
i 191: RETURN 

127 GOTO 20020 



999 HIMEM: MB 

1000 END 

10000 XX = PDL (0) 
L (1) / 255 
IF PEEK (49152) > 

GOSUB 10000 : XDRAW 1 AT XOX,YOX:X 

ox = xx:yox = yx: xdraw i at xox, 

YOx: GOTO 20000 

GET RS: IF RS = CHRS (13) THEN 
RETURN 

IF TX < N AND RS = " " THEN TX ( 1 , 
TX) = X0x:TX(2,TX) = YOx:TX(0,TX> 
= 0:TX = TX + l: XDRAW 1 AT XOX, 
YOX: HPLOT XOX, YOX : XDRAW 1 AT XO 
X,YOX: GOTO 20000 

IF TX > 1 AND RS = CHRS (8) THEN 
TX = TX - 1 : HC0L0R= O: HPLOT TX 
(1,TX - 1),TX(2,TX - 1) TO TX(1,T 
X),TX(2,TX): HCOLOR= 3: GOTO 2000 


IF TX < > AND TX < N AND RS = 

CHRS (21) THEN TX(1,TX) = XOX : 7% 
<2,TX) = YOX:TX(0,TX> = 1:TX = TX 

+ l: HPLOT TX(1,TX - 2),TX(2,TX 
- 2) TO XOX, YOX : GOTO 20000 
PRINT CHRS (7): POKE 49168,0: GO 
TO 20000 

Programme DESSINATEUR HGR 

10 WT = l: REM TEMPS DE PAUSE ENTRE LES 
POINTS 

HOME : HGR : POKE 49234,0: HC0LOR= 3 
READ N 

FOR 1=0 TO N: READ A,X,Y 
IF A = O THEN HPLOT X,Y: GOTO 70 
HPLOT TO X,Y 

FOR W = 1 TO WT: NEXT : NEXT 
PRINT CHRS (7) 

GET RS: HGR : TEXT : HOME : PRINT " 
AU REVOIR.": END 
DATA 57,0,79,72,1,76,61,1,79,51,1, 
89 , 40 . 1 , 89 , 55 , 1 , 86 , 62 , 1 , 79 , 74 , , 8 
2 , 80 , 1 , 74 , 80 , 1 , 68 , 75 , 1 , 56 , 71 , 1 , 48 
, 72 , 1 , 38 , 76 , 1 , 30 , 86 , 1 , 24 , 96 , 1 , 24 , 
106,1,25,116,1,28,127,1,33,146,1, 
41,158,1,52,159,1,60,152,1,73,150 
DATA 1 , 83 , 154 , 1 , 86 , 158 , 1 , 94 , 158 , 1 , 
103,152,1,110,139,1,115,122,1,108 
,116,1,105,104,1,110,94,1,118,89, 
1 , 1 1 2 , 79 , 1 , 103 , 74 , 1 , 94 , 73 , 1 , 84 , 80 
,0, 117,89, 1,30,89,0,26, 103,0,24, 1 
03,1,105,103,0,108,116,1,25,116,0 
,29, 132 

DATA 1,111,131,0,107,147,1,35,147, 
0,0,191,1,0,0,1,279,0,1,279,191, 1 
,0,191,0,13,179,1,13,31,1,212,31, 
1,212,179,1,13,179.0,0,0 



20 
30 
40 
50 
60 
70 
80 
90 

100 



101 



102 
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DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 




- Duree de vie : 30 millions de revolutions 
(standard de ('Industrie 3,5 millions de revolutions). 

- Anneau de renforcement en standard sur le 5 ] / 4 ". 

- 5 1/4 " en 48 et 96 TPI, simple et double face. 

Importateur exclusif : BFI ELECTRONIQUE - 9 RUE YVART - 

75015 PARIS. 

Tel. 533-01-37. 
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Reconstituez le puzzle 

Joel Lecoeur 



Deux methodes sont a priori envisa- 
geables pour realiser un programme 
de puzzle sur micro-ordinateur. La 
premiere serait une presentation des 
pieces morceau par morceau; en 
d'autres termes, l'Apple afficherait 
successivement de facpn aleatoire 
chaque case du dessin et attendrait 
que le joueur la situe correctement 
sur 1' original. 

La seconde, qui vous est ici propo- 
see, affiche 1' ensemble des pieces 
melangees et vous laisse le soin de 
remertre les choses en ordre. 

Un premier conseil : ne vous laissez 
pas effrayer par la difficulte appa- 
rente du probleme. Le monde peut 
se reconstituer en moins de deux 
heures, je l'ai fait ! 

120 morceaux sont a remertre en 
place ; ce n'est pas la mer a boire. 
Aussi, pour corser la difficulte, l'Ap- 
ple va tester votre memoire visuelle 
et votre sens de 1' analyse en comp- 
tant soigneusement le nombre de vos 
recours au dessin original. II ne vous 
laissera d'ailleurs que quelques se- 
condes pour 1' observer et, lorsque le 
puzzle sera integralement reconstitue, 
il vous gratifiera de quelques qualifi- 
catifs que vous aurez sans doute me- 
rites et qu'il vous appartiendra d'in- 
terpreter. 

En ce qui conceme le programme 
lui-meme, il n'y a que deux parties 
importantes : melange des morceaux 
et affichage, puis attente des directi- 
ves du joueur. 



Melange et affichage 

Le melange et 1' affichage se trouvent 
aux lignes 800 a 930 (ou 935 pour 
la couleur) du programme BASIC, 
qui renvoient aux lignes 100 a 140 
dans lesquelles est execute l'appel au 
sous-programme en langage-machine 
implante de 8460 a 84C3. lis utili- 
sent une zone de memoire tampon 
situee a l'adresse 17232 correspon- 
dant a l'adresse initiale d'un morceau 
d'ecran place en bas et a gauche sur 
la page HGR2. Une fois le melange 
effectue, le traitement d' affichage 
prend le premier morceau d'ecran 
qu'il met en memoire tampon 
(17232), puis le second qu'il met a 
l'adresse du premier, puis le troi- 
sieme qu'il met a la place du second, 
et ainsi de suite jusqu'au 120eme, 
apres lequel il reprend le premier 



pour le mettre a l'adresse du 
120eme. La boucle etant ainsi bou- 
clee, c'est alors a vous de jouer. 

Attente des directives 

Les lignes 1000 a 1030 du pro- 
grammme correspondent a 1' attente 
de vos directives. Les deux mor- 
ceaux qui se trouvent echanges par 
ces demieres transitent toujours par 
la zone tampon et la routine en lan- 
gage-machine. 

Conception du 
programme 

Le programme peut traiter n'importe 
quel dessin enregistre sur disquette. 

II utilise des modules en langage ma- 
chine dont vous trouverez plus loin la 
recapitulation et qui assurent les 
fonctions suivantes : 

1) Module ONNER-128 

- 300 a 309: routine de ONNER 
GOTO (cf page 124 du manuel de 
l'Applesoft). 

- 30A a 32B : mise a zero des octets 
qui sont a 128. Sans cette routine, le 
programme, qui fait pour sa part la 
difference entre les et les 128, 
n'annoncerait jamais que le puzzle 
est entierement reconstitue. 

2) Module TRANS 

- 8000 a 802B : transfert de la page 
HGR a la page HGR2. 

- 8030 a 8417 : shapes HGR conte- 
nant 1' alphabet, les chiffres, le point, 
le point d' exclamation et l'etoile. 

- 8418 a 8443 : comparaison des 
deux pages HGR, octet par octet, 
pour savoir si le puzzle est reconsti- 
tue. 

- 844D a 845F : musique. 

- 8460 a 84C3 : echange des mor- 
ceaux du puzzle. 

- 8500 a 872A : routine de charge- 
ment rapide de fichiers binaires de 
Jacques Tran-Van (cf Pom's 4). 

Remarques sur le programme en Ap- 
plesoft : 

- Ligne 100 : Bl, B2, CI et C2 sont 
les parties hautes et basses des 
adresses de debut de chaque mor- 



ceau du puzzle. Elles sont placees 
aux adresses 250, 251, 252 et 253 
pour la sous-routine d' echange des 
morceaux. 

- Ligne 300 : cet echange necessite 
une zone tampon, d'ou les 3 appels 
a la sous-routine. 

- Ligne 400 : debut du programme, 

- Ligne 498 : CALL -31488 lance le 
programme de chargement rapide. 

- Ligne 500 : c'est ici que commence 
le programme pour un nouveau des- 
sin. 

- Ligne 560 : appel du module de 
transfert d' image. 

- Ligne 600 : effacement des zones 
d'ecran necessaires et mise en place 
des coordonnees. Puis mise en place 
de 1' image finie sur la page 1. 

- Lignes 800 a 930: melange des 
morceaux et affichage. 

- Ligne 890 : adresse de debut de la 
zone tampon. 

- Ligne 915 : possibility d'interrom- 
pre le programme pendant 1' affichage 
par CTRL-Z. 

- Ligne 940 : effacement de la zone 
tampon sur HGR2. 

- Ligne 980 : affichage de l'etoile sur 
HGR. 

- Lignes 1000 a 1030: le pro- 
gramme attend 4 donnees represen- 
tant les coordonnees des pieces a 
echanger. Accessoirement, il traite les 
erreurs d' entree, emet sons et clo- 
ches, et autorise le passage au dessin 
original ou aux regies du jeu. 

- Ligne 1040 : transformation des 
'coordonnees en numeros permettant 
la recherche des DATA correspon- 
dants. 

- Ligne 1100 : B(E1) et B(C1) sont 
les adresses des deux morceaux qui 
vont etre echanges. 

- Ligne 1120 : effacement de l'etoile 
sur la page puzzle et effacement de 
la zone tampon sur la page de 1' origi- 
nal afin de voir si la reconstitution est 
terminee (CALL -31720). 

- Ligne 1 150 : remise en place de 
l'etoile. 

- Ligne 1160 : si l'adresse 254 est a 
zero, c'est gagne ! 

- Ligne 1200 : flip-flop entre les deux 
pages. 
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- Ligne 1210 : boucle d'attente pour 
1' observation de 1' original. 

- Lignes 2000 a 2250 : traitement de 
la victoire. Ligne 2070 : impression 
du BRAVO... QUELLE PATIENCE 
!!! . A partir de la ligne 2117 : qualifi- 
catifs musicaux traduisant 1' apprecia- 
tion de l'ordinateur a l'egard de votre 
performance. 

- Lignes 2500 a 2710 : chaque varia- 
ble est une appreciation. 

- Ligne 3000 : regies du jeu, disponi- 
bles a tout moment. 



- Ligne 4000 : affichage du titre et 
appel facultatif au reglement. 

- Lignes 10000 a 10090: ces 120 
nombres sont les adresses de debut 
de chaque morceau du puzzle. 

- Ligne 10100 : BRAVO ... 

- Ligne 10500 : musique de la vic- 
toire. 

- Ligne 20000 : cette routine d'erreur 
vise principalement a traiter les er- 
reurs sur le nom des graphiques, ou 
les omissions de ma part... 



Pour que ce programme puisse fonc- 
rionner avec la couleur, si vous en 
disposez, quelques modifications sont 
necessaires pour que le melange des 
morceaux ne s'effectue qu'entre co- 
lonnes paires, ou impaires, sans inte- 
raction entre les deux types de co- 
lonnes. 



Vous trouverez ci-apres la liste des 
modifications en question, et je vous 
precise des maintenant qu'elles nui- 
sent sensiblement a la rapidite d' exe- 
cution du programme. 



Programme PUZZLE 



LOMEM : 24576: HIMEM: - 32768 

1 ONERR GOTO 20000 

2 HOME : INVERSE : VTAB 23: PRINT "APPU 

YE2 SUR UNE TOUCHE" : NORMAL : POK 
E 35,22 

HOME : PRINT CHRS (4 ) "CATALOG" 



3 
4 
5 

10 



<C / 256) :C2 = C - CI 



25 



25 



= BP:B = BM 
= TA:B = BP 



'BLOAD TRANS": CALL 



WAIT - 16384,128: POKE - 16368,0 
POKE 35,24: HOME 
GOTO 400 

100 Bl = INT (B / 256) :B2 = B - Bl * 
6 

110 CI = INT 
6 

POKE 250, C2: POKE 251, CI 
POKE 252, B2: POKE 253, Bl 
CALL - 31648: RETURN 
FOR I = 1 TO 3: GOSUB 100 
IF I = 1 THEN C 
IF I = 2 THEN C 
NEXT I: RETURN 
HOME : TEXT 
PRINT CHRS (4) 

- 31488 
& "ONERR-128" 
DIM M(120) ,B<120) 
515 BOUCLE = 150:GAGNE = O : NB = 
517 GOSUB 4000 

POKE 34,6: HOME : POKE 34,0 
VTAB 12: INPUT "LE TITRE DU DESSIN 

CHOISI. . .";TS 
HOME 

POKE 233,128: POKE 232,48 
& TS,8192 

IF PEEK (812) > THEN CALL 801 
CALL - 32747 
POKE 230,32 
ROT= O: SCALE= 1 

POKE - 16297,0: POKE - 16302,0: P 

OKE - 16304,0: POKE - 16299,0 
HCOLOR= 

FOR I = TO 13: HPLOT 1,15 TO 1,19 
1: NEXT 

FOR I = 176 TO 191: HPLOT 13,1 TO 2 
79,1: NEXT 
J = 26: HCOLOR= 3 

FOR I = 28 TO 172 STEP 16 
J = J * l: DRAW J AT 3,1: NEXT 
655 J = 

660 FOR I = 22 TO 253 STEP 21 

670 J = J + 1 : DRAW J AT 1,185: NEXT 



120 
130 
140 
300 
310 
320 
330 
400 
498 

499 
500 



520 
525 

530 
540 
555 
557 
560 
565 
570 
597 

600 
610 

620 

630 
640 
650 



680 
690 
300 
820 
830 
840 
850 
860 
870 
880 
890 
895 
900 
905 



910 

915 

920 
930 
940 



980 
985 
990 
lOOO 

1001 

1005 

1006 

1007 
1008 

1O10 
1020 

1025 
1026 



POKE - 16300,0 
CALL - 32747 

FOR I = 1 TO 120: READ BCD 
MCI) = I 
NEXT 

FOR I = 1 TO 120 
N = ( INT < RND (1) » 119)) * 1 
IF N = I THEN 850 

T = M(i):M(i) = m<N):mcn) = t 

NEXT I 
TA = 17232 

B = TA:C = B ( M ( 1 ) ) : GOSUB 100 
FOR Z = 1 TO 119 

POKE 6,30 « ( COS ( SIN (Z) ) ) : POKE 
7,5 * < COS < SIN <Z))): CALL - 
31667 

B = B<M<Z)):C = B<M(Z * 1)): GOSUB 1 
00 

IF PEEK < - 16384) = 154 THEN TEX 

T : POKE - 16368,0: END 
NEXT Z 

B = B(M(120)):C = TA: GOSUB 100 
POKE 230,64: HCOLOR= O: FOR I = 176 
TO 191: HPLOT 0,1 TO 21,1: NEXT 
: HCOLOR= 3: POKE 230,32 
DRAW 37 AT 3,185 
POKE - 16368,0 
GOTO 1001 
POKE 6,30: POKE 7,30: CALL 



7 



- 3166 
= ASC 



1027 



FOR I = 1 TO 4: GET AS < I ) : A 
<AS(I> ) 

IF A = 47 THEN GOSUB 3000: POKE 

- 16304,0 
IF Z = 1 AND (A = 26 OR A = 27 OR 

A = 32) THEN 1008 
IF Z = 1 THEN 1000 

IF A = 13 THEN 1=0: FOR J = 1 TO 
10: POKE 6,10 * I * 5 : POKE 7,5: 
CALL - 31667: NEXT J: GOTO 1030 
IF A = 32 THEN GOSUB 1200 
IF A = 27 THEN CLEAR : RESTORE : 

HOME : TEXT : GOTO 500 
IF A = 26 THEN TEXT : END 

IF I = 1 OR I = 3 THEN IF A < 65 
OR A > 76 THEN POKE 6,20: POKE 7 
,30: CALL - 31667: FOR J = 1 TO 
3: POKE 6,20: POKE 7,10: CALL - 
31667: NEXT J: I = I - 1: GOTO 103 


IF I = 2 OR 1=4 THEN IF A < 48 
OR A > 57 THEN POKE 6,25: POKE 7 
,30: CALL - 31667: FOR J = 1 TO 
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3: POKE 6,25: POKE 7,10: CALL - 
31667: NEXT J:l = I - 1: GOTO 103 


1029 POKE 6,30 ♦ I • 20: POKE 7,18: CAL 

L - 31667 

1030 NEXT I 

1040 FOR 1=1 TO 2 

1050 IF I = 2 THEN ASCI) = AS<3> 
1060 Al = ASC (ASCI) ) - 64 

1070 IF I = 2 THEN El = Al + VAL CAS<4 

)> » 12: GOTO 1090 
1080 CI = Al ♦ VAL (AS<2>> « 12 
1090 NEXT I 

lioo c = B<El>:BM = C:bp = b<ci>:b = ta 

1110 GOSUB 300 

1120 HCOLOR= 0: DRAW 37 AT 3,185 

1130 POKE 230,64: FOR I = 176 TO 191: H 

PLOT 0,1 TO 21,1: NEXT : POKE 230 

, 32 

1140 CALL - 31720 

1150 HC0L0R= 3: DRAW 37 AT 3,185 
1160 IF PEEK (254) = THEN 2000 
1170 GOTO 1000 

1200 IF GAGNE = 1 THEN POKE - 16299,0 
: GET AS:A = ASC (AS): IF A = 27 
THEN 1020 

1202 IF GAGNE = 1 THEN 1230 

1205 POKE - 16299,0: POKE - 16368,0 

1210 FOR II = 1 TO BOUCLE: IF PEEK ( - 
16384) > 128 THEN II = BOUCLE 

1215 IF PEEK ( - 16384) = 175 THEN GO 
SUB 3000: POKE - 16304,0 

1220 NEXT II 

1230 POKE - 16368,0: POKE - 16300, 0:N 

B = NB * 1: RETURN 
2000 HC0L0R= 0: FOR I = 1 TO 2: POKE 23 

0,32 » I 

2050 FOR J = 177 TO 191: HPLOT 13, J TO 

279, J: NEXT J 
2055 NEXT I: POKE 230,32: HCOLOR= 3 
2060 DIM BR ( 29 ) : FOR I = 1 TO 29: READ 

BR<I) 

2070 DRAW BR < I > AT 14 * I » 8,185: NEXT 
I 

2110 2=1 

2117 DIM C(31) ,D(31) ,E<31) 

2120 FOR I = 1 TO 31: READ CCI),D<I),E( 

I): NEXT I 
2130 FOR K = 1 TO 2 
2140 FOR I = 1 TO 31 

2150 POKE 6,C(I): POKE 7,D(I): CALL - 
31667 

2160 FOR J = O TO Ed): NEXT J, I 
2170 FOR J = 1 TO 500: NEXT J,K 
2200 POKE 230,64 

2202 IF NB = THEN 2700 

2203 IF NB > 54 THEN 2710 

2210 ON INT <NB / 5) 1 GOSUB 2500,25 
10,2520,2530,2540,2550,2560,2570, 
2580,2590,2600 

2220 FOR I = 1 TO LEN (AS) STEP 2 

2230 DRAW VAL < MIDS ( AS ,1,2)) AT 18 ♦ 
I « 4,185 

2240 NEXT I: POKE 230,32 

2250 GAGNE = 1: GOTO 1001 

2500 AS = "22152119400520051940120540160 
80514092440393939": RETURN 

2510 AS = "15091905012140042140160118010 
4091939": RETURN 

2520 AS = "06090518400315131305402114401 




VOUS IHVE5TI55EZ EN 
MICROIHFORMATIQUE, 
FAITESLE 
EFFICACEMENT. 

|^ ous allez investir dans un ordinateur personnel. 

Vous voulez etre guide dans votre choix et garantir au 
maximum votre investissement. 

Vous voulez vous servirefficacement de votre ordinateur 
personnel et souhaitez une assistance soutenue et suivie tant sur 
le materiel que sur I'emploi des logiciels. 

MINIGRAPHE MICROINFORMATIQUE, creee a 
Boulogne-sur-Seine il y a trois ans par )ean-Louis Orsini, met a 
votre disposition un systeme d 'assistance efficace qui vous per- 
mettra de reussir votre investissement et d 'optimiser vos resultats. 



Telephonez-lui, il vous donnera toutes les informations 
necessaires. 




MINIGRAPHE 

MICROINFORMATIQUE 

263, Boulevard )ean-)aures 92100 Boulogne g 

608/44/31 
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2530 
2540 
2550 

2560 
2570 
2580 
2590 

2600 
2700 
2710 
3000 



3020 
3040 



3050 

3060 

3070 

3072 

3075 
3080 



601151439": RETURN 
AS = "1815092005120520393939": RETU 
RN 

AS = "12014003090715071405400121401 

215140740020503393939": RETURN 
AS = "08091815140405121205401405400 

601092040120540161809142005131619 

39": RETURN 
AS = "13010920180540031518020501214 

0393939": RETURN 
AS = "12014016152112054001400601092 

040191514401505210639": RETURN 
AS = "01401905180914393939401905180 

914400520400405130939": RETURN 
AS = "01121521052020053939394010054 

0200540161221130518010939" : RETUR 

N 

AS = "03080114204004214003250714053 

93939": RETURN 
AS = "38400315210315213939393916051 

81815172105204038" : GOTO 2220 
AS = "16052009200540200520054004054 

01209141520200539": GOTO 2220 
TIS = "REGLES DU PUZZLE" : HOME : VT 

AB l: HTAB 12: INVERSE : PRINT TI 

s 

POKE - 16368,0: VTAB 5 
PRINT "BARRE D ' ESPACEMENT" : NORMAL 
: PRINT " FLIP-FLOP ENTRE LE P 

UZZLE ET L'ORIGINAL. (ECO 

NOMISEZ CE DERNIER, L'ORDINAT 

EUR VOUS EN TIENDRA COMPTE.)": PR 

INT 
INVERSE : 
PRINT " 

E5 QUE L 

: PRINT 
INVERSE : 

INT " 

RINT 
INVERSE 
PRINT 

: PRINT 
INVERSE 

PRINT " 



PRINT "RETURN" : NORMAL : 
POUR ANNULER LES TOUCH 
ON VIENT DE FRAPPER." 

PRINT "ESC": NORMAL : PR 
CHANGEMENT DE DESSIN.": P 

PRINT "CTRL Z": NORMAL : 
MET FIN AU PROGRAMME." 



PRINT "SLASH": NORMAL : 
PASSAGE DES REGLES AU P 
UZZLE ET VICE ET VERSA." 
POKE - 16300,0: POKE - 16303,0: 
POKE - 16368,0 



PRINT " ( TOURNEZ 
: WAIT - 16384,1 



VTAB 23: HTAB 15: 
LA PAGE S. V.P. ) • 
28: HOME 

3090 A = PEEK < - 16384): POKE - 16368 
,0: IF A = 154 OR A = 155 THEN A 
= A - 128: POKE 34,0: HOME : GOTO 
1O20 

175 THEN RETURN 

UNE ETOILE DANS LE COIN 
GAUCHE, INDIQUE LE PUZZLE.": 
RIEN, PAR CONTRE POUR 

PR 



3100 
3110 



3120 



3130 



IF A = 
PRINT 
BAS A 
PRINT " 

L'ORIGINAL A RECONSTITUER . ' 
INT 

PRINT " CHAQUE MORCEAU DU PUZZLE 
EST UN PETITRECTANGLE QU'IL CONV 
IENT DE METTRE A SA PLACE, SAUF S 
I VOUS ETES UN EMULE DE PICASS 
O.": PRINT 

PRINT " IL SUFFIT POUR CELA DE D 
ESIGNER LE": PRINT "MORCEAU RECON 
NU AINSI QUE LA PLACE OU": PRINT 
"VOUS DESIREZ L ' INSTALLER . " 



3140 



3150 



3160 



3170 

4000 
4020 

4030 



4032 
4040 

4050 

4055 
4060 



PRINT : PRINT " POUR CE FAIRE, L 

E PRINCIPE EST CELUI": PRINT "DE 

LA BATAILLE NAVALE." 
PRINT : PRINT : PRINT " VOICI UN 
EXEMPLE DE DESIGNATION : " : PRINT 
: HTAB 18: PRINT "F8C3" 
VTAB 23: PRINT " 

POUR LES REGLES)": 

128: IF PEEK ( - 

EN 3000 

POKE 34,0: HOME 



(LE SLASH '/' 
: WAIT - 16384, 
16384) = 175 TH 



POKE - 16368,0 
RETURN 
TIS = "PUZZLE" : L 
VTAB 3: HTAB 18 

••TIS" «" 
VTAB 1: HTAB 18 



LEN (TIS) 
L / 2: PRINT 



4070 
10000 

10010 

10020 

10030 

10040 

10050 

10060 

10070 

10080 

10090 

10100 

10500 



20000 
20005 



20010 



L / 2: PRINT "»« 
••«•«•••": HTAB 18 - L / 2: PRINT 
"« «": HTAB 18 - L / 2: V 

TAB 4: PRINT "* «": HTAB 1 

8 - L / 2: PRINT "»«*«»»«•*«•• 
BS = "N" : POKE 812, ASC (BS) - 67: 
GOTO 4040 
POKE 34,6: HOME : VTAB 12: HTAB 1: 
PRINT "VOULEZ-VOUS LES REGLES DU 
JEU ? ";: GET AS: POKE 34,0 
IF AS = "0" THEN GOSUB 3000: RETU 

RN 
HTAB 1 

IF AS < > "N" THEN VTAB 21: PRIN 
T " CE "AS" ME CHATOUILLE LE CL 
AVIER, VOUS": PRINT "ETES TRES AI 
MABLE...": FOR I = 1 TO 2000: NEX 
T I: POKE 34,15: HOME : POKE 34,0 
: GOTO 4040 
RETURN 

DATA 8450,8453,8456,8459,8462,846 
5,8468,8471 ,8474,8477,8480,8483 
DATA 8706,8709,8712,8715,8718,872 
1,8724,8727,8730,8733,8736,8739 
DATA 8962,8965,8968,8971 ,8974,897 
7 , 8980 , 8983 , 8986 , 8989 , 8992 , 8995 
DATA 8234,8237,8240,8243,8246,824 
9 , 8252 , 8255 , 8258 , 8261 , 8264 , 8267 
DATA 8490,8493,8496,8499,8502,850 
5,8508,8511,8514,8517,8520,8523 
DATA 8746,8749,8752,8755,8758,876 
1 , 8764 , 8767 , 8770 , 8773 , 8776 , 8779 
DATA 9002,9005,9008,9011 ,9014,901 
7 , 9020 , 9023 , 9026 , 9029 , 9032 , 9035 
DATA 8274,8277,8280,8283,8286,828 
9 , 8292 , 8295 , 8298 , 8301 , 8304 , 8307 
DATA 8530,8533,8536,8539,8542,854 
5,8548,8551 ,8554,8557,8560,8563 
DATA 8786 , 8789 , 8792 , 8795 , 8798 , 880 
1 ,8804,8807,8810,8813,8816,8819 
DATA 2, 18, 1,22, 15,39,39,39,39,40, 
17,21,5,12,12,5,40,16,1,20,9,5,14 
,3,5,38,38,38,38 

DATA 13,4,50, 13,4,50,13,4,0,13,4, 
0,13,4,0,13,4,0,13,4,0,13,4,0,13, 
4,0,13,4,70,13,4,0,13,4,0,13,4,0, 
13, 4, 0,13, 4, 0,13, 4, 0,13, 4, 0,13, 4, 
0,13,4,0,13,4,0,13,4,0, 13,4,500, 1 
6, 4, 0,16, 4,0, 16, 4,0, 16, 4, 0,14, 4,0 
, 19,4,0, 19,4,0, 19,4,0, 19,4,0 
CALL 768 

IF PEEK (222) < > 6 THEN HOME 
: PRINT "ERRARE HUMANUM EST": TEX 
T : END 

VTAB 22: HTAB 7: INVERSE : PRINT 
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"(PAS DE DESSIN SOUS CE NOM ) " : NO 
RMAL : GOTO 525 

3 LOAD ADAP-PUZZLE-COULEUR 
] LIST 

500 DIM M<120> ,B<120) ,L<120) : REM LA V 
ARI ABLE L(N> SERT DE TAMPON 

800 FOR I = 1 TO 120: READ B(I):L(I) = 
I: NEXT 

810 FOR I = 1 TO 120 

820 N = INT ( RND (1) » 119) * 1:N1 = 

ABS <L(N) - LCD) / 2: REM LA CO 
NDITION N1>INT(N1> VA TESTER LA P 
ARITE DES NOMBRES CHERCHES 
830 IF N = I OR Nl > INT <N1) THEN 820 
840 T = L<I):L(I) = L(N):L(N> = T: NEXT 
850 K = 60: J = 0: FOR I = 1 TO 120 
860 IF L(I) / 2 = INT (LCI) / 2) THEN 
J = J * l:M(J) = L(I): NEXT : REM 
LIGNES 850 A 870 = LES NOMBRES 



IDENTIFI ANT LES MORCEAUX FIGURA 
NT DANS LES COLONNES PAIRES SERON 
T RANGES DE M(l) A M(60). LES COL 
ONNES IMPAIRES DE M<61> A M<120) 
865 IF I > 120 THEN 880 
870 K = K + l:M(K) = L(I): NEXT 
880 TA = 17232 

890 FOR J = 1 TO 61 STEP 60: REM POUR 
EVITER QUE LE MORCEAU D'ADRESSE B 
<M<61)) NE VIENNE EN B<M<60)) IL 
VA FALLOIR TRAITER LES DEUX SOUS- 
ENSEMBLES SEPAREMENT. 

895 B = TA:C = B(MCJ)): GOSUB 100: REM 

D'OU LE DOUBLE BOUCLAGE DES LIGNE 
S 890 A 935 

900 FOR Z = J TO J + 58 

930 B = BCMCZ - 1)):C = TA : GOSUB 100 
935 NEXT J: REM LIGNES 905 A 920 INCHA 
NGEES 

4032 BS = "C": REM SUITE DE LA LIGNE 4 
032 INCHANGEE 



Le bruit du chargement 
d'images basse resolu- 
tion 

Lors du chargement d'images basse 
resolution tels que les masques de 
MENU sur les disquettes de Pom's 
anteneures au numero 9, on constate 
certains bruits "inquietants" de la 
part du lecteur. Cela vient du fait 
que la page texte occupe 1' emplace- 
ment $400-$7FF en laissant 64 
octets libres (cf. "Les adresses du 
graphique" - Pom's 1). II se trouve 



que les peripheriques et le DOS utili- 
sent ces adresses a leur guise, et c'est 
ainsi que $478 contient le numero 
de piste et force done le "recali- 
brage" du bras. 

La solution, appliquee a partir du 
Pom's 9 sur les disquettes d'accom- 
pagnement, consiste a BLOADer la 
routine relogeable ci-dessous, puis 
BLOADer le masque desire en 
$6000 et enfin a faire "CALL 768" 
pour executer la routine de charge- 
ment Cette routine permet de depla- 
cer une zone de $400 octets vers la 



page texte sans toucher aux adresses 
reserves. 

La zone de depart est ici $6000, 
mais on peut la changer en $XYO0 
en mettant la valeur $XY— 4 en 
$30E. 

Remarque : il est souhaitable de faire 
suivre le CALL 768 d'un HTAB et 
d'un VTAB. 

Merci a Thierry Le Tallec et Oli- 
vier Herz pour l'analyse et la resolu- 
tion du probleme. 



Programme ONERR-128 

♦300. 32B 

0300- 68A8 68 A6DF9A 48 98 
0308- 48 60 ft2 20 AO 00 Bl 58 
0310- C980D0 04 A9 00 91 5B 
0318- 88 DO F3 E6 59 Cfl DO EC 
0320- 60A9 00 85 58 A920B5 
0328- 59 4C OA 03 

Programme TRANS 



Contient le programme de 
chargement rapide de Jac- 
ques Tran Van (Pom's 4) 
en 8500 - 872A 

•8000. 872A 

8000- Bl 58 91 5A 88 DO F9 E6 
8008- 59 E6 5B CA 30 06 DO FO 
8010- A0 00 D0EC60A90085 
8018- 58 A9 20 85 59 A90085 



8020- 5AA9 4O 855BA2 20 A0 
8028- 00 4C 00 80 00 00 00 00 
8030- 28 00 64 00 7C 00 97 00 
8038- AEO0C3OODDOOEF0O 
8040- 09 01 21 01 30 01 40 01 
8048- 5E 01 6E 01 86 01 9E 01 
8050- B3 01 C5 01 E2 01 FA 01 
8058- 13 02 23 02 3D 02 59 02 
8060- 77 02 97 02 AD 02 C5 02 
8068- EO 02 EE 02 07 03 IF 03 
8070- 35 03 4D 03 65 03 75 03 
8078- 90 03 A6 03 DA 03 E2 03 
8080- E4 03 00 00 00 00 00 00 
8088- 00 00 00 00 00 00 00 00 
8090- 0000000004040404 
8098- 04 01 04 01 Ofa 01 06 Oi 
80A0- 06 06 07 07 07 05 05 05 
80A8- 06 06 06 00 05 05 05 04 
80B0- 01 04 04 03 04 01 04 04 
80B8- 03 07 07 07 06 06 06 05 
80C0- 05 07 07 06 06 06 00 01 
80C8- 05 05 04 01 06 03 07 07 
80D0- 04 03 04 04 04 04 04 01 



B0D8- 05 05 06 01 06 00 04 04 
80E0- 04 04 04 04 05 05 05 06 
80E8- 01 06 06 06 06 06 03 07 
80F0- 07 07 00 05 05 05 05 07 
80FB- 07 07 07 04 04 04 05 05 
8100- 05 07 07 07 04 04 04 05 
8108- 05 05 05 05 00 04 04 04 
8110- 05 05 05 07 07 07 04 04 
8118- 04 05 05 05 05 05 00 01 
8120- 05 05 05 04 04 07 05 06 
8128- 06 07 07 07 04 03 04 04 
8130- 040404 01 05050505 
8138- 00 04 04 04 04 04 04 06 
8140- 06060505 05 050404 
8148- 04 06 06 06 06 06 06 06 
8150- 00 01 05 05 07 04 04 04 
8158- 04 04 04 05 07 07 07 00 
8160- 01 04 03 06 01 05 05 04 
8168- 01 04 04 04 04 04 04 00 
8170- 0404040404040606 
8178- 06 05 04 01 04 01 04 01 
8180- 06 03 06 03 06 03 06 01 
8188- 06 01 06 01 06 00 05 05 
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8190- 05 05 07 07 07 07 04 04 
8198- 0404040404000404 
8100- 04 04 04 04 06 01 06 01 
B1A8- 06 04 04 01 04 01 06 OB 
81B0- 0606060606000404 
81B8- 040404040606 01 06 
81C0- 01 06 01 06 01 06 04 04 
81C8- 040404040400 01 05 
81D0- 0504 01 0404040404 
81D8- 03 07 07 06 03 06 06 06 
81E0- 0606000404040404 
81E8- 04 05 05 05 06 01 06 06 
81F0- 03 07 07 07 00 01 05 04 
81F8- 01 04 03 06 01 06 01 04 
8200- 03 04 01 04 04 04 04 03 
8208- 07 07 06 03 06 06 06 06 
8210- 0600040404040404 
8218- 05 05 05 06 01 06 06 03 
8220- 07 07 06 01 06 01 06 01 
8228- 06 00 01 04 03 06 01 05 
8230- 05 04 01 04 04 03 07 07 
8238- 04 03 04 04 01 05 05 06 
8240- 01 06 00 01 01 04 04 04 
8248- 04 04 04 07 07 05 05 05 
8250- 05 05 00 01 04 03 04 04 
8258- 0404040606060606 
8260- 06 01 05 05 04 01 04 04 
8268- 04 04 04 04 00 01 01 04 
8270- 03 04 03 04 04 04 04 06 
8278- 06 06 06 06 01 06 01 04 
8280- 01 04 01 04 04 04 04 04 
8288- 0004040404040406 
8290- 06 06 06 06 06 04 01 04 
8298- 01 04 06 06 01 06 01 04 
8200- 04 04 04 04 04 04 00 04 
8208- 04 01 04 01 04 01 04 01 
82B0- 04 06 06 03 06 03 06 01 
82B8- 06 01 06 04 04 03 04 03 
82C0- 04 03 04 03 04 04 00 01 
82C8- 01 04 04 04 04 03 04 03 
82D0- 04 06 06 01 06 01 04 01 
82D8- 04 01 04 04 00 05 05 05 
82E0- 05 07 07 07 07 04 04 01 
82E8- 04 01 04 01 04 01 04 07 
82F0- 07 07 07 07 00 01 05 05 
82F8- 04 01 040404040403 
8300- 07 07 06 03 06 06 06 06 
8308- 04 01 04 01 04 01 04 00 
8310- 01 05 05 07 04 04 04 04 
8318- 04 04 06 03 06 00 05 05 
8320- 05 05 07 07 07 07 04 04 
8328- 01 04 01 05 04 01 04 04 
8330- 03 07 07 06 03 06 00 01 
8338- 04 03 06 01 05 05 04 01 
8340- 04 04 03 07 04 01 04 01 
8348- 04 07 07 07 07 07 00 01 
8350- 01 01 04 04 04 04 04 04 
8358- 06 03 06 03 06 03 06 05 
8360- 0505050500 01 0403 
8368- 06 01 05 05 04 01 04 04 



8370- 04 03 07 07 07 04 04 05 
8378- 0505050500 01 0505 
8380- 04 01 04 04 03 07 07 07 
8388- 060604040404 01 04 
8390- 01 05 05 05 00 01 04 04 
8398- 04 01 04 01 04 01 04 07 
8300- 07 07 07 07 00 01 05 05 
8308- 04 01 04 04 03 04 01 04 
83B0- 04 03 07 07 06 03 06 06 
83B8- 01 05 07 06 03 06 06 00 
83C0- 05 05 04 01 04 01 04 04 
83C8- 04 04 03 07 07 06 03 06 
83D0- 06 01 050505000COC 
83D8- OC OC OC OC 17 17 17 OE 
83E0- OE OE 1C 1C 1C 1C 1C 1C 
83E8- OEOEOE05050505 07 
83F0- 07 07 07 07 07 07 07 05 
83F8- 0505050404040406 
8400- 06 06 06 06 06 06 06 06 
8408- OC00 04 80 04 04 04 04 
8410- 0400050000000000 
8418- 09 00 85 FA 85 FC 85 FE 
8420- A920B5FBA9 40 85FD 
8428- A2 20 00 00 Bl Ffl Dl FC 
8430- DO OD 88 DO F7 E6 FB E6 
8438- FD Cfl 30 02 DO EE 60 09 
8440- 01 85FE60 00 00 00 00 
8448- 0000000000 AD 30C0 
8450- 88 DO 04 C6 07 FO 08 Cfl 
8458- DO F6 A6 06 4C 4D 84 60 
8460- 05 Ffl 85 50 85 5C A5 FB 
8468- 85 58 85 FE 05 FC 85 5B 
8470- B55DA5FD85 59 85FF 
8478- A9 02 85 08EAA208AO 
8480- 02 Bl Ffl 91 FC 88 DO F9 
8488- Bl FO 91 FC 09 04 65 58 
8490- 855BB5FBA90465 59 
8498- 85 59 85 FD Cfl DO EO A9 
8400- 80655A85FAft98065 
8408- 5B 85 FC A5 FE 85 58 85 
84B0- FBfl5FF85 59 85FDA5 
84B8- 5C8550055D 85 5BC6 
84C0- 08 DO BO 60 00 00 FF FF 
84C8- FF FF FF FF FF FF FF FF 
84D0- FF FF FF FF FF FF FF FF 
B4D8- FF FF FF FF FF FF FF FF 
84E0- FFFFFFFFFFFFFFFF 
84E8- FF FF FF FF FF FF FF FF 
84F0- FF FF FF FF FF FF FF FF 
84F8- FF FF FF FF FF FF FF FF 
8500- A9 00 8D F6 03 09 9B 8D 
8508- F7 03 09 4C 8D F5 03 02 
8510- 00 BD 2B 85 9D 00 9B E8 
8518- DOF7BD2B86 9D 00 9C 
8520- E8 DO F7 09 9fl 8D 01 9D 
8528- 4C D4 A7 05 IE 8D AC Ofl 
8530- 05 IF BD AD 00 20 B7 00 
8538- C9 22 DO 28 A9 06 85 CI 
8540- AO 00 8C EB B7 20 Bl 00 
8548- C922 F0 0C 09 80 99 75 



8550- A0C8C0 1E90EFB034 
8558- 09 EF 85 CI 20 Bl 00 CO 
8560- 00 DO 4C 60 05 B8 48 ft5 
8568- B9 48 20 7B DD 24 11 30 
8570- 0BA20320F59C4C12 
8578- D4688SB96885B820 
8580- E3 DF 85 IE 84 IF AO 00 
8588- Bl IE DO 05 02 OB 4C Ofl 
8590- 9C 80 AB 00 C8 Bl IE 48 
8598- C8 Bl IE 85 IF 68 85 IE 
8500- AO 00 Bl IE 09 80 99 75 
85A8- AAC8CCABAAD0F3A9 
85B0- A09975AAC8C0 1EDO 
85B8- F8 8D BO AA 20 F5 9C 20 
85C0- B7 00 FO 12 20 BE DE 20 
85C8- 67 DD 20 52 E7 A5 51 C9 
85D0- 0290B94EB0AAA9 01 
85D8- 8D F4 B7 A9 10 BD ED B7 
85E0- 09 11 8D EC B7 20 E6 9C 
85E8- CE ED B7 FO 46 20 CB 9C 
85F0- AOEBBCAEAAADAEAA 
85FB- 18 69 23 A8 BD AE AA C9 
8600- 03 FO E5 02 00 B9 BB B3 
8608- FO 29 DD 75 Ofl DO E6 C8 
8610- E8 EO IE DO FO B9 9C B3 
8616- 29 04 DO 04 A2 OD DO 15 
8620- ACAE0AB9B9B38DED 
8628- B7 B9 B8 B3 30 C7 BD EC 
8630- B7D00EA2068E5CAA 
863B- 20F59C 20 93 FE4CD5 
8640- A6 8D AF AA 20 CB 9C A2 
8648- OC 05 IE 04 IF 20 EE 9C 
8650- OD AF Ofl FO 03 20 Efl 9C 
8658- 20 BB 9C AD AF AA FO 40 
8660- 2CB0AA300AA550 8D 
8668- BB B4 05 51 8D BC B4 38 
8670- AD BB B4 E9 04 85 IE 8D 
8678- FO B7 OD BC B4 E9 00 85 
8680- IF BD Fl B7 fl9 04 BD Dfl 
8688- 9C 18 6D BD B4 BD AB AO 
8690- 09 00 8D E2 9C 8D AF 00 
869B- ADC9B3F0 22 20 D99C 
8600- OE AE AO EE Fl B7 E6 IF 
8608- E8 EO FE BO ID BD BD B3 
86B0- DOA6 20EA9C20BB9C 
B6B8- 09008548 8DD09CAD 
86C0- ABAABDE29C20D99C 
86C8- FO 56 OD BC B3 FO E3 20 
86D0- BB9CADBDB38DEDB7 
86DB- E6 IF 20 E6 9C AD BC B3 
86E0- 80 EC B7 4C 19 9C BD BB 
86E8- B3 80 EC B7 E8 BD BB B3 
86F0- 8DEDB7 8E0EAAA9B7 
86F8- AO E8 20 B5 B7 90 11 A2 
8700- 0B4C0A9CA0 00 B9BB 
8708- B4 91 IE C8 CO 00 DO F6 
8710- 60A0B3D0 02 00 B4A9 
8718- BB 8D FO B7 BC Fl B7 60 
8720- ADACAA85 1EADADAA 
8728- 85 IF 60 



Donnez du caractere 
a votre imprimante 

Herve Thiriez 



Les documentations de Visicalc, Mul- 
tiplan et Applewriter ne sont pas to- 
talement claires (ha ha !) quant a la 
facon dont doivent etre fournis les 
caracteres de controle permettant de 
passer d'un mode d' impression a 
I' autre. II nous a semble utile de faire 
le point sur 1' envoi de ces caracteres. 

Le tableau ci-contre, reproduit a par- 
tir de la documentation d'Omnis 
(merci, KA), recapitule les principaux 
codes ASCII, en representation deci- 
male, a envoyer aux principales im- 
primantes du commerce pour attein- 
dre des objectifs courants. 

Ainsi, avec une Oki 92 (Microline), 
on passe en mode qualite courrier 
avec les caracteres 27 et 49. 
Comment faut-il faire pour engendrer 
ces caracteres ? Nous allons vous le 
montrer ... 

Impression Visicalc 

Remarque : comme dans le livre "Vi- 
sicalc sur Apple", un texte souligne 
signifie ici qu'il s'agit d'une touche a 
enfoncer et non d'un texte a entrer. 
Ainsi, RETURN signifie qu'il faut en 
foncer la touche RETURN. 

L' insertion de caracteres de contrfile 
destines a 1' imprimante s'appelle 
SETUP STRING; elle doit avoir lieu 
apres la specification du slot de 1' im- 
primante. Pour me mettre en qualite 
courrier avec Visicalc, il me suffit de 
faire : 

/PI RETURN "AH1BAH31 RE- 
TURN -Xy RETURN 

Les guillemets indiquent le debut des 
caracteres de controle. 

Le symbole "A" annonce qu'un ca- 
ractere de contrdle suit. 

H1B signifie : caractere Hollerith de 
valeur IB (1B=16+11=27 en repre- 
sentation hexadecimale). 

De la meme fagon, H31 correspond 
au caractere de code hexa 31, done 
de code decimal 49. 

Xy sont les coordonnees de la case 
en bas et a droite de la zone a impri- 
mer. 

Une autre solution consite a utiliser, 
par exemple pour limiter l'impression 
a 60 colonnes avec "CTRL-I 60N", 
la representation suivante : 



MODELE IMPRIMAJJTE 



N 

c 

T 
I 

N 





MICROLINE 


MATRICIELLE 
APPLE 


EPSON 


80-82A-83 


84 


92-93 


MX 80, 82,100, 
PTTypem 


9CPI 


N/D 


N/D 


N/D 


27,110 


N/D 


10CPI 


30 


30 


30 


27,78 


N/D 


12CPI 


N/D 


29 


28 


27.69 


18 


15CPI 


N/D 


N/D 


N/D 


27.: 13 


N/D 


17 CH 


29 


28 


29 


27,81 


15 


CARACTERES ON 
ELARGIS OFF 


31 
N/D 


31 
N/D 


31 
N/D 


14 
15 


14 

20 


CARACTERES ON 
GRAS OFF 


N/D 
N/D 


27.72 
27.73 


27.72 
27,73 


27,33 
27,34 


27.69 
27,70 


SOULIGNEMENT ON 
OFF 


N/D 
N/D 


27.67 
27.68 


27.67 
27,68 


27,38 
27,89 


27,45,1 
27,45,0 


QUAUTE ON 
COURRIER OFF 


N/D 
N/D 


27,49' 
27.48 


27.49 
27.48 


N/D 
N/D 


N/D 
N/D 



- N/D signifie Non-Disponible 

*La qualite courrier sur 1'imprimante Microline 84 utilise l'espacement 
proportionnel. 



/PI RETURN " CI60N 

ou " C" signifie que le caractere sui- 
vant est un caractere de controle. De 
la meme facon, " E" signifie la tou- 
che ESC et " R" la touche RETURN. 

Le probleme avec Visicalc, e'est que 
Ton ne peut modifier le mode d' im- 
pression en cours d' impression. La 
SETUP STRING peut seulement etre 
definie au moment ou une impres- 
sion est lancee. 

Impression Multiplan 

Au moment ou j'ecris cet article, je 
n'ai pas encore regu la version fran- 
chise de Multiplan; mes remarques 
concernent par consequent la version 
US de ce programme pour l'Ap- 
ple lie. On parvient a la definition du 
SETUP en entrant la sequence "PO 
TAB " pour Printer, Options et 
la touche de tabulation qui posi- 
tionne sur la rubrique SETUP. II m'a 
par contre ete impossible de trouver 
dans la documentation ou dans la 
fonction HELP le mode d'emploi du 
SETUP. 

II m'a fallu lire la documentation du 
Multiplan IBM PC pour comprendre 
comment il faudrait faire pour obtenir 
sur Apple le resultat escompte ! 



Une fois le curseur positionne sur la 
rubrique SETUP, pour passer le ta- 
bleau en qualite courrier avec une 
Oki 92, il faut entrer la charne : 

All 

et surtout ne pas enfoncer simultane- 
ment la touche CTRL, sinon Ton re- 
vient au menu. 

Le signe d' exponentiation, comme 
dans Visicalc, annonce la venue de 
caracteres de contrdle. Par contre, 
dans Visicalc, il faut mettre ce sym- 
bole avant chaque caractere de 
controle. Ici, il faut le mettre unique- 
ment au debut de la chaine. 

Comment pouvait-on deviner qu'il 
fallait utiliser les touches "!" et "1"? 
Eh bien, ce n'etait pas difficle si vous 
aviez sous les yeux la page 42 du 
Pom's 4 (ou la page 185 du Recueil. 
On y trouve un tableau qui montre 
que le caractere de controle (avec I 
dans la colonne ecran) "!" corres- 
pond au code ASCII de valeur deci- 
male 27 ou hexa IB. De meme, le 
caractere de controle 1 a la valeur 
decimale 49 et la valeur hexa 31. 

Nous regrettons de ne pouvoir repro- 
duce ici le precieux tableau des 
codes ASCII publie dans le Pom's 4, 



■ 

■ 
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mais il y en a cinq pages pleines, et 
cela ferait trop de redondance. Le re- 
cueil et le numero 4 seul sont tou- 
jours disponibles (voir les bons de 
commande dans la revue). 

Ce qui est agreable avec Multiplan, 
par rapport a Visicalc, c'est qu'une 
fois la chaine de SETUP definie, il 
n'est plus necessaire de la reentrer a 
chaque impression. 

Impression Applewriter 

Nous parlons ici d' Applewriter II ou 
He, qui permettent l'insertion dans le 
texte de caracteres de contr61e. On 
peut facilement, dans un texte, me- 
langer differentes polices et tailles de 
caracteres. II faut toutefois veiller a 
modifier eventuellement les marges 
de gauche ou de droite et les cadra- 
ges pour obtenir une presentation 
agreable a l'oeil. 

L' introduction de caracteres de 
controle dans le texte doit debuter et 
terminer par CTRL-V : la lettre V en- 
foncee pendant que la touche CTRL 
est maintenue enfoncee. Le passage 
en qualite courrier pendant un texte 
necessite ainsi 1' entree de la chaTne : 



Pauses en x/10 de seconde 

USES APPLESTUFF; 

(* DUREE EN 1/10 DE SECONDE ») 

PROCEDURE UfllKDUREE: INTEGER); 
VflR I, Js INTEGER; 

C:CHflR; 
BEGIN 

FOR l:=l TO DUREE DO 
BEGIN 
FOR J:=l TO 74 DO 
BE6IN 
IF KEYPRESS 
THEN BEGIN 
REflD (KEYBOARD, C); 
EXIT (WAIT); 
END; 
END; 
END; 
END; (t MBIT ♦) 

Philippe Chemin 



CTRL-V CTRL-[ CTRL-1 CTRL-V 

Par contre, lorsqu'on travaille avec 
Applewriter lie version francaise, on 
utilise en general le clavier en mode 
Azerty. Dans ce cas, il n'y a plus de 
caractere "[". Voici done, pour trois 
caracteres de commande d'impri- 
mante non disponibles sur le clavier 
francais, la correspondence : 



Code 
ASCII 

27 
28 
29 



Clavier 
US 



Clavier 
francais 

) 



En mode US comme en mode fran- 
cais, la touche CTRL doit rester en- 
foncee pendant que le caractere ci- 
dessus est frappe. 

Nous parlerons plus en detail d' Ap- 
plewriter He version francaise dans le 
numero de decembre. Je n'ai en ce 
moment qu'une version de travail in- 
complete de ce programme, sans do- 
cumentation, en attendant le produit 
fini qui devrait sortir avant la paru- 
tion de ce numero. 



TRAITEMENT DE TEXTES 
ASTUCIEUX 

• Progiciel pour APPLE II, //e 
"MAGIC WINDOW II" 
(AUTOTEXTE: version frangaise) 

- Affiche 70 colonnes sans carte "80" 

- Affiche 80 colonnes avec carte "80" 

- Affiche bientot 132 colonnes ! 
- 160 colonnes en ligne 

(par emplacement d'ecran) 

- Reproduction exacte sur ecran de la feuille imprimee 

1795 F ttc (AUTOTEXTE en frangais) 

• SYSTEME OPERATIONNEL pour moins de 25000 F ttc 

(Imprimante + APPLE lie + Progiciel AUTOTEXTE) 

• Documentation technique et tarif sur demande 



IMPRIMANTES A DOUBLE EMPL0I 

a marguerites 
de 6000 Fa 13000 F ttc 




Votre APPLE II Europlus a un clavier QWERTY? 
TRANSFORMEZ-LE EN CLAVIER FRANCAIS accentue 
au prix exceptionnel de 1 050 F ttc au lieu de 2100 F ttc 

yusqu aepuisementdustock) grace au KIT "CLAVIER AZERTY" 
utilisant le puissant ENHANCER II de VIDEX 

mondialement connu et concu pour votre clavier. 

i (522.15.15) 



BBBHBHH 
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Super-impression de chaines 

Denis Sureau 



SUPER PRINT est un programme 
qui permet d'afficher un texte sans 
couper les mots ni les nombres en fin 
de ligne, en conservant tous les for- 
mats et options de la commande 
PRINT usuelle, avec la meme syn- 
taxe precedee de 1' ampersand. Pou- 
voir ameliorer l'affichage sans mani- 
pulation laborieuse des instructions 
PRINT, tel est son interet essentiel. 

En outre, il est relogeable et, pou- 
vant meme s'inserer dans la page 3, 
il s'emploie conjointement avec d'au- 
tres routines. 

Utilisation du 
programme 

Si Ton connait la syntaxe de 1' instruc- 
tion PRINT, on connait celle de 
SUPER PRINT, la seule difference 
tenant a la presence de 1' ampersand. 

L' initialisation de l'ampersand se fait 
quelle que soit l'adresse de charge- 
ment du programme grace a une 
methode particuliere expliquee plus 
loin. 

Pour etre plus comprehensible, le lis- 
ting du programme est commente au 
debut de chaque procedure. II est 
elabore selon des principes assez 
simples et ne se complique guere 
que pour reprendre les options ordi- 
naires de l'instruction PRINT (";" "," 
et commandes composees). 

Pour que "&" pointe a l'adresse ou 
le programme sera charge en me- 
moire quelle que soit cette adresse, 
on effectue un saut nul sur un RTS 
dans le moniteur avec pour effet de 
sauver dans la pile l'adresse de de- 
part du JSR (voir a ce sujet la page 
81 du Manuel de Reference de 1' Ap- 
ple II pour plus de precisions). 

L'adresse obtenue est lue directe- 
ment dans la pile grace aux instruc- 
tions : 

TSX 
DEX 

LDA $100,X (partie basse) 
LDA $101,X (partie haute) 

On ajoute a ce resultat le nombre 
d' octets qui separe le JSR du debut 
de la procedure de SUPER PRINT et 
la somme obtenue est placee en 
$3F6-$3F7, adresse du vecteur 
d' ampersand. 



Traitement d'un nombre 
ou d'une variable nume- 
rique 

SUPER PRINT vient a la rescousse 
aussi bien des nombres coupes en 
deux par la limite d'ecran que des 
chaines de caracteres. 

La routine qui affiche ordinairement 
les nombres en Applesoft se situe a 
l'adresse $ED2E (PRNTFAC) et se 
compose de deux simples appels, le 
premier a FOUT ($ED34) qui trans- 
forme le FAC en une chaine de ca- 
racteres copiee en $100— $101 (le 
FPBUF) et terminee par un 0, le se- 
cond a STROUT ($DB3A) qui affi- 
che une chaine pointee par Y-A et 
terminee par ou ". 

La procedure reutilise ces deux 
appels mais insere entre les deux une 
routine qui calcule le nombre de chif- 
fres avant le dans le FPBUF, le 
compare a l'intervalle entre la posi- 
tion courante et la limite d'ecran 
(pointees par $24 et $21) et effectue 
un RETURN si l'espace est insuffi- 
sant. 

Traitement d'une chaine 
de caracteres 

Le programme procede en decou- 
pant la largeur de l'ecran, telle 
qu'elle est definie par les pointeurs 
de fenetre, sur la chaine a afficher, 
du debut jusqu'a la derniere partie. 

L'intervalle qui est ainsi pris sur la 
chaine a la position de debut indi- 
quee dans DEBLIGN et la position 
de fin dans FINLIGN. Apres recher- 
che d'un espace et affichage, DE- 
BLIGN pointera sur le debut du der- 
nier mot de l'intervalle, qui sera 
affiche avec un nouvel intervalle s'il 
est coupe par FINLIGN. 

La procedure d' affichage teste apres 
chaque caractere la fin de la chaine 
avant la fin de l'intervalle a afficher. 
Un test sur cette longueur precedant 
le travail de decoupage permet de 
"sauter" celui-ci lorsque Ton arrive a 
la derniere partie de la chaine. 

La procedure de decoupage, partant 
done de la position de la chaine qui 
correspond a la marge droite sur 
l'ecran, indiquee dans FINLIGN, re- 
vient sur la gauche a la recherche du 
premier espace et en place la posi- 



tion dans FINLIGN. Si aucun espace 
n'est present dans la chaine, soit on 
saute a la ligne si le debut d' impres- 
sion ne correspond pas au debut 
d'ecran (cas d'un HTAB XX), soit on 
force l'impression de la chaine cou- 
pee (a l'impossible, nul n'est tenu). 

Les separateurs ";" 

et ":" 

Les routines CHRGET et CHRGOT 
demandent a etre employees ici avec 
precision car le listing de 1' Applesoft, 
melant des fonctions diverses en ce 
qui concerne les separateurs, n'est en 
fait d' aucun secours. Je me bornerai 
a decrire le minimum necessaire a la 
comprehension du programme (une 
etude tres approfondie sur CHRGET 
a ete publiee dans le numero de 
mars 1982 de CALL APPLE, suffi- 
samment complete pour indiquer 
comment ameliorer de quelques mil- 
lisecondes cette procedure !). 

CHRGET incremente le pointeur de 
programme TXTPTR en testant le 
caractere lu sur la nouvelle position. 
S'il s'agit de (marqueur de fin de 
ligne) ou du separateur d' instructions 
l'indicateur Z est mis a 1; si e'est 
un chiffre, l'indicateur C est mis a 0. 

CHRGOT produit le meme resultat, 
mais teste la position courante poin- 
tee par TXTPTR sans 1' incremented 

Aussi, apres analyse et affichage 
d'une variable ou d'un chiffre (re- 
connu grace a l'indicateur C), le pro- 
gramme branche sur CHRGOT plu- 
tot que sur CHRGET, car la routine 
Applesoft utilisee, FRMEVL, laissera 
le TXTPTR pointe sur le dernier ca- 
ractere utile, soit "$", "%", "0", 
"," ou 

Dans le cas de la virgule, on se bran- 
che sur une routine similaire a celle 
de l'Applesoft, puis sur CHRGET 
non suivi de RETURN, S'il s'agit 
d'un point-virgule, on effectue un 
appel a CHRGET non suivi de RE- 
TURN, lequel n'est effectue qu'en fin 
de commande et lorsque le dernier 
caractere de celle-ci est different des 
deux precedents. 

Tous les formats de la commande 
PRINT restent valides, avec une limi- 
tation pour les textes entre guillemets 
qui ne doivent pas etre trop nom- 
breux sur une meme commande ou 
a l'interieur d'une boucle. 
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Programme SUPER PRINT DEMO 



10 PRINT CHRS <4)"BRUN SUPER PRINT" 
20 HOME 

30 PRINT ."SUPER PRINT" 
40 PRINT ,"PAR D. SUREAU" : PRINT 

50 AS = "PRINT " 

60 FOR I = 1 TO 10: PRINT AS ; "ORDINAIRE 

'* • 
I 

70 BS = BS ♦ " AMPER " * AS 

80 NEXT :CS = "SUPER " 

SO PRINT : & PRINT BS : PRINT 

100 FOR I = 1 TO 10 

110 & PRINT CS;AS; 

120 NEXT : PRINT 

130 PRINT AS;" AVEC COMPOSITION DE TEXT 
E,CHIFFRE, ", 12345; " ET VARIABLES 
";AX,A 

140 & PRINT AS;" SUPER AVEC COMPOSITIO 
N DE TEXTE, CHIFFRE , " , 12345 ; " ET V 
ARIABLES ";AX,A 




it-*-*-*-*-*-*-*-*-*-* 



* SUPER * 

* PRINT * 

* « 
» 9 - 1983 * 

* * 

* AUTEUR D. SUREAU * 
8 »-*-*-»-<■ « i i i i i 
9 

10 *PROGRAMME RELOCATABLE 

11 *iC) 83 POM'S ! L' AUTEUR 

12 

ORG 



Big 
Mac 



13 
14 

15 VALTYP 

16 LARGEUR 

17 HTAB 

18 FACMO 

19 CHR6ET 

20 CHRSOT 

21 AMPERVCT 

22 CRDO 

23 STROUT 

24 OUTDO 

25 FfflEVL 

26 ISLETC 

27 FACOUT 

28 COUT 
29 

30 LONGVAR 

31 VAR 

32 DEBLIGN 

33 FINLI6N 

34 FLAG 
35 

36 RELVECT 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 TEST 
51 



JSR 
TSX 
DEX 
LDA 
CLC 
ADC 
STft 
LDA 
ADC 
STA 
LDA 
STA 
RTS 

CMP 



$300 

$0011 
$0021 
$0024 
$00 AO 
$00B1 
$00B7 
$03F5 
$DAF8 
$DB3fi 
$DB5C 
$DD7B 
$E07D 
$ED34 
$FDED 

$0018 
$0019 
$001B 
$001D 
$001F 

$FF58 



$100, X 

#TEST-RELVECT-2 
AMPERVCT+1 
$101, X 
#$00 

AMPERVCT+2 
#$4C ;JMP 
AMPERVCT 



;l $1A 



52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 



* FIN DE COMMANDS SANS *CR' 
RETOUR RTS 

VIR6ULE LDA HTAB 

CMP #$18 

BCC VIRGULE2 

JSR CRDO 

VIRGULE2ADC #$10 

AND #$F0 

STA HTAB 

DEBUT JSR CHRGET 

* IDENTIFICATION DU SEPARATEUR 

SEPARTR JSR CHRSOT 

BEQ RETOUR ;0 OU : 

BCC LECTVAR ;DIGIT 

JSR ISLETC 

BCS LECTVAR ;CAR ALPHA 

CMP #$22 

BEQ LECTVAR ;SUILL. 

CMP #' ■ 

BEQ VIRGULE 

CMP #••• ;SINON $,< 

VERSDEB BEQ DEBUT 

JSR CHRGET 

* FIN DE COMMANDE AVEC 'CR' 

VERSSEP JSR CHRGOT 

BNE SEPARTR 

JMP CRDO 



* LOCALISATION DE LA VARIABLE 
;INIT 



LECTVAR LDA #0 

STA $52 

JSR FRMEVL 

BIT VALTYP 

BNE PRSTRING 



% * TRAITEMENT D'UN NOMBRE 



#$BA 

DEBUT 



;PRINT? 



37 
98 
99 
100 

101 NUMBCL 
102 



JSR FACOUT 
PHA 

LDX #0 
INX 

LDA $100, X 



103 
104 
105 
106 
107 
108 
109 

110 SKIP 
111 



BNE NUMBCL 
TXA 
CLC 
ADC 
CMP 
BCC 
JSR 
PLA 
JSR 
CLC 
BCC 



HTAB 
LARGEUR 
SKIP 
CRDO 

STROUT 



SEPARTR 



112 
113 
114 

115 * LECTURE DESCRIPTEUR DE CHAINE 
116 

117 PRSTRING LDY 

118 BCL LDA 
STA 
DEY 
BPL 



#2 

(FACMO), Y 
LONGVAR, Y 



119 
120 
121 
122 

123 » 

124 * 

125 * 

126 « 
127 

128 PRRTN INY 

129 SCAN STY DEBLIGN 
130 

131 * LARGEUR-HTAB+DEBLIGN DONNE LA 

132 * POSITION DU DERNIER CARACTERE 

133 * DE LA LISNE SUR LA CHAINE 
134 



BCL 



DEBLIGN PREND LA VALEUR 
PUIS LA POSITION DU PREMIER 
CARACTERE DE CHAQUE LISNE 
SUIVANTE 



135 SCAN1 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 BLANC 
150 
151 
152 
153 



LDA 
CLC 
ADC 
SEC 

TAY 
STY 
CPY 



LARGEUR 

DEBLIGN 

HTAB 

FINLIGN 
LONGVAR 
PRLIGN 



* RECHERCHE DU PREMIER BLANC 

* PRECEDANT LE MOT COUPE ET 

* SAUT EN PRLIGN 



LDA 
CMP 
BEQ 
DEY 

CPY 



(VAR),Y 

#$20 

PRLIGN 

DEBLIGN 



n H HHI 
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154 BNE BLflNC 


164 








174 


BEQ 


RETLISN 


155 IDA HTflB 


165 PRLI6N 


STY 


FINLIGN 




175 


LDA 


(VAR),Y 


156 BEQ PRLIBNl 


166 DRLIGNi 


LDY 


DEBLI6N 




176 


JSR 


OUTDO 


15/ Jan Lnuu 


167 PRBCL 


CPY 


L0N6VAR 




177 


INY 


158 CLC 


168 


BNE 


PRBCL2 




178 


BNE 


PRBCL 


159 BCC SCANl 


169 


JSR 


CHRBOT 


;TEST 


179 RETLIGN 


JSR 


CRM 


160 


170 


DP 


«*22 


;2IEME 


180 


INY 




1£1 * TIHODCCCTnu n> mc i TCiic 

101 * IriFKtoolUN 1J unt LlbNt 


1/1 


Den 


VtHbUtB 


JoUILL. 


181 


BNfc 


crnu 


162 * TEST SI FIN DE CHfllNE £XJ 


172 


BNE 


VERSSEP 










163 * FIN DE LIGNE 


173 PRBCL2 


CPY 


FINLIGN 











Programme SUPER PRINT 



Conversion de REAL cn entier long 



•300.3D2 

0300- 20 
0308- 18 
0310- 01 
0318- 8D 
0320- 60 
0328- FB 
0330- 20 
0338- 90 
0340- 22 
0348- 3B 
0350- 00 
0358- 85 
0360- IE 
0368- BD 
0370- 24 
0378- 68 
0380- 02 
0388- F8 
0390- IB 
0398- 18 
03A0- OF 
0308- F0 
03B0- 84 
03B8- 20 
03C0- 8D 
03C8- 5C 
03D0- C8 



58 FF BA 
69 IP, 8D 
69 00 8D 
F5 03 60 
ft5 24 C9 
DA 69 10 
Bl 00 20 
1C 20 7D 
F0 13 C9 
F0 E5 20 
DO E0 4C 
52 20 7B 
20 34 ED 
00 01 DO 
C5 21 90 
20 3A DB 
Bl AO 99 
C8 84 IB 
38 E5 24 
B0 15 Bl 
88 C4 IB 
08 20 FB 
ID fl4 IB 
B7 00 C9 
C4 ID F0 
DB C8 DO 
DO B7 



Cfl BD 
F6 03 
F7 03 
C9 Bfl 
18 90 
29 F0 
B7 00 
E0 BO 
2C FO 
Bl 00 
FB DA 
DD 24 
48 A2 
FA 8fl 
03 20 
18 90 

18 00 
05 21 
A8 84 

19 C9 
DO F5 
DA 18 
C4 18 
22 FO 
08 Bl 
E7 20 



00 01 
BD 01 
A9 4C 
FO 10 
03 20 
85 24 
FO E8 

17 C9 
DA C9 
20 B7 
A9 00 
11 DO 
00 E8 

18 65 
FB DA 
B4 AO 
88 10 

18 65 
ID C4 
20 FO 
A5 24 
90 DC 
DO 09 
BA DO 

19 20 
FB DA 



VAR LONGREEL : INTEGER [36] ; 

PROCEDURE CONVERTIR ( Rl : REAL ) 
VAR PUIS : REAL : 

SIGNE, INC, I , INT: INTEGER; 
SIGN IF : = BOOLEAN ; 
BEGIN 

SIGNIF: =FALSE; 
IF RKO THEN SIGNE: = -1 

ELSE SIGNE: =+1 ; 
Rl : =ABS(R1 ) ; 
PUIS:=lE+36; 
LONGREEL: =0; 
INC: =0; 

FOR l:=l TO 37 DO 
BEGIN 

IF INC<7 THEN INT : =TRUNC < Rl /PUIS > 
IF INTOO THEN SIGNIF : =TRUE ; 
IF SIGNIF=TRUE THEN INC:=INC+1; 
IF INC>6 THEN INT:=0; 
LONGREEL : = LONGREEL* 10 + INT; 
IF INC>6 THEN INT:=1; 
Rl : =R1-INT«PUIS; 
PUIS: =PUIS/10; 
END; 

LONGREEL :=SIGNE * LONGREEL; 
END; <*CONVERTIR« > 

Philippe Chemin 



<» 36 ») 



(» 36+1=37 ») 



Message de la redaction 



Nous avons appris avec tristesse que notre redacteur, Olivier Herz, devait partir au Japon. II ne pourra helas plus 
collaborer a Pom's aussi regulierement que durant certe derniere annee ou, outre ses brillants articles, il a joue le 
role principal dans 1' analyse des contributions des lecteurs et dans le Courrier des Lecteurs. Pom's recherche done 
un collaborateur a temps partiel qui : 

— ait envie de participer a la redaction de Pom's 

— connaisse bien l'Apple 

— sache aller au fond des choses quand il teste un programme 

— soit capable de s'exprimer clairement 

— reside (si possible, mais pas essentiel) en region parisienne 

II y a une possibilite que cette occupation devienne a temps plein par la suite. Les candidatures sont a envoyer a 
Herve Thiriez - Pom's - 49, rue Lamartine - 78000 Versailles. Ne pas oublier d'indiquer vos coordonnees telepho- 
niques. 



Pom's n° 9 




NOUVEAUTES SICOB Stand Niveau 3 - Zone AF - N° 3194 



Aux Editions 



Fdi micro 



MULTIPLAN SUR APPLE 

Exercices de gestion 
Ph. BONNET etN.T. DINH 
1983, 180 p. 85 F. 



Ce livrea pour butdevous 
apprendre a utiliser Multi- 
plan par I'exercice. Cha- 
que exercice, choisi pour 
son interet pedagogique 
et pratique, est comple- 
tement traite: objectif 
poursuivi, moyens pour y parvenir, description du 
tableau, construction du modele, indications pour 
adapter et modifier le modele a votre gre. 

Aux Editions masson m 





GUIDE DE L'APPLE 

par B. de MERLY 

Tome 1 : L'APPLE standard, 1983, 168 p. 68 F. 
Tome 2: Les Extensions, 1983, 200 p., 68 F. 
i A PARAITRE : Tome 3 : Les Applications 

« Ces ouvrages sont les premiers d'une serie 
consacree a I' Apple II... Les tomes suivants 
traiteront des langages et des peripheri- 
ques. Les exposes sont clairs et a la 
portee de ceux qui ont des connaissance 
elementaires en informatique». 

MINIS ET MICROS 




INITIATION A VISICALC 

C. BAUDRY 

Coll. «ABC des langages » 
1983, 152 p. 80 F. 

L'auteur propose un apprentissage graduel de VISICALC, en indiquant son installa- 
tion sur Apple II et T.R.S. modele III. 

Dans la premiere partie, le lecteur est invite a utiliser VISICALC pour construire 
une application. Chemin faisant, les principales commandes de VISICALC sont 
decrites et mises en ceuvre. 

La deuxieme partie est I'occasion d'evoquer certaines particulates techniques 
de VISICALC permettant de mieux comprendre la logique de fonctionnement du 
logiciel. 

Le lecteur pourra s'y reporter, soit pour un approfondissement, soit pour voir 
decrite, sous une forme differente, une commande deja rencontree. 

GESTION DU PERSONNEL 
SUR MICRO-ORDINATEURS 

B. MERCK 

Coll. "Methode -f- Programmes » 
1983, 200 p. 120 



F 

1 



Ce livre, qui est le premier a traiter de la gestion du personnel sur micro- 
ordinateur, interessera tous ceux qui travaillent dans la fonction, quel que soit 

leur niveau de responsabilite 
et quelles que soient leurs connaissances informatiques. 
Ce sujet, traite avec un souci pedagogique, est illustre par une douzaine 
d'applications pratiques presentees par complexite croissante. 
Chaque application est suivie de la liste complete d'un ou de plusieurs 
programmes en Basic, immediatement adaptables a tous les micro-ordinateurs. 




Cesouvrages sonten vente en librairie ou ala Maison du UvreSpecialise,42-48 : ruede_la Colonie -75640 Paris Cedex 13-Tel. 581 ,51.l5o 

BON DE COMMANDE 



□ Je desire recevoir les ouvrages suivants : . 



(a retoumer a la M.L.S.) 



Ci-joint un cheque de. 
et + : 21 F). 



. F libelle a I'ordre de la M.L.S. (participation aux frais de port : 1 vol. : 9'F, 2 vol. : 13 F, 3 vol • 16 F 4 vol O 



□ Je desire recevoir votre catalogue informatique. 
NOM : 



Adresse : 



Prenom : . 



Signature : 



-o 

Q. 



Mise en forme de listings 

Erick Ringot 



Les programmes presentes ci-apres 
sont une application des fichiers 
EXEC, dont le role est de formater 
des listings sur imprimante, en effec- 
tuant des sauts de page, avec titre et 
numerotation de chaque page. 

[-'execution de CREAL1ST constitue 
la premiere etape du processus. Les 
informations a fournir a ce pro- 
gramme sont : 

- Le nom du programme a lister, tel 
qu'il se trouve sur la disquette (en 
fait, le programme doit se trouver sur 
la meme disquette que CREALIST. 
CAPTURE et LISTING). 

- Le numero de la premiere page (s'il 
est different de 1, le titre en double 
largeur n'est pas imprime). 

- Le numero de la derniere page (s'il 
est different de 0, la mention : 

« -=-=-# FIN #- = - = - » n'est 
pas imprimee). 

- Les numeros de la premiere et de 
la derniere ligne a lister (repondre 
pour commencer au debut, et ega- 



lement pour aller jusqu'a la fin du 
programme). 

CREALIST ouvre le fichier sequentiel 
NOMPROG qui contient les elements 
precises ci-dessus, puis cree le fichier 
CAPTLIST qui contient les instruc- 
tions suivantes : 



• LOAD CAPTURE 

• POKE 103,129 (deplace le poin- 
teur de debut du programme 
apres CAPTURE) 

• LOAD P$ (chargement du pro- 
gramme a lister) 

• Selection des lignes a editer (voir 
les lignes 360 a 390 de CREA- 
LIST) 

• POKE 103,1 (repositionne le poin- 
teur de debut du programme en 
$801, CAPTURE et le programme 
a lister se trouvant done ainsi 
reunis). A noter que la premiere 
ligne du programme a lister doit 
done avoir un numero superieur 
ou egal a 10. 



• RUN pour l'execution de CAP- 
TURE (creation du fichier PROG) 

• RUN LISTING pour execution du 
"listing" proprement dit. 

Ces instructions sont ensuite execu- 
tes par un EXEC CAPTLIST. 

L'analyse du programme final LIS- 
TING ne doit pas poser de pro- 
bleme. Vous pouvez bien sur modi- 
fier le nombre de lignes par page fixe 
ici a 60 (ligne 280). Selon l'impri- 
mante dont vous etes possesseur, il 
vous faudra peut-etre egalement mo- 
difier les caracteres de controle utili- 
ses dans notre exemple, a savoir : 

- CHR$(14) : double largeur 

- CHR$(15) : simple largeur 

- CHR$(12) : saut de page. 

En fin de liste, le programme emet a 
l'ecran le message "ERREUR TYPE 
5", signalant ainsi simplement la fin 
des donnees. 



Programme CREALIST 



10 REM 

20 REM LISTINGS FORMATES 

30 REM 

40 : 

50 TEXT : HOME 

60 PRINT TAB < 5)"LISTING FORMATE" 
70 VTAB 4: PRINT "NOM DE PROGRAMME ?" 
80 INPUT PS 

90 VTAB 7: PRINT "DATE ?" 
100 INPUT TS 

110 VTAB 10: PRINT "NO DE LA PREMIERE P 

AGE ?" 

111 INPUT P 

112 VTAB 13: PRINT "NO DE LA DERNIERE P 

AGE ?" 
114 INPUT F 

130 VTAB 16: PRINT "NO DE LA PREMIERE L 

IGNE ?" 
140 INPUT LI 

150 VTAB 19: PRINT "NO DE LA DERNIERE L 

IGNE ?" 
160 INPUT L2 

170 VTAB 22: PRINT " O.K. ? <0/N> ";: G 

ET AS: PRINT CHRS <13> 
180 IF AS = "N" THEN 50 

190 IF AS < > "O" THEN PRINT CHRS (7 
> : GOTO 170 

200 : 

210 DS = CHRS (4) 

212 PRINT DS-OPENNOMPROG" 



215 


PRINT 


220 


PRINT 


230 


PRINT 


240 


PRINT 




F: 


250 


PRINT 


260 




290 


PRINT 


300 


PRINT 


310 


PRINT 


320 


PRINT 


330 


PRINT 


340 


PRINT 


350 


PRINT 


360 


IF LI 


370 


PRINT 


380 


IF L2 


390 


PRINT 


400 


PRINT 


410 


PRINT 


420 


PRINT 


430 


■ 


435 


PRINT 


440 


PRINT 



PRINT TS: PRINT P: PRINT 



DS-OPENCAPTLIST" 

DS"DELETECAPTLIST" 

DS"OPENCAPTLIST" 

DS-WRITECAPTLIST" 

"LOADCAPTURE" 

"P0KE103,129" 

"LOAD"PS 

= THEN 380 

"DEL 0,"L1 - 1 

= THEN 400 

"DEL"L2 + 1", 40000' 

"P0KE103,1" 

"RUN" 

"RUNLISTING" 



Programme CAPTURE 

1 DS = CHRS <4> 

2 PRINT DS"0PENPR0G" 

3 PRINT DS"DELETEPROG" 

4 PRINT DS"OPENPROG" 
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35 



5 PRINT DS-WRITEPROG" 

6 POKE 33,33 

7 LIST 10 - 

8 PRINT DS-CLOSE" 

9 END 



Programme LISTING 



20 DS = CHRS (4) 

30 PRINT DS"OPENNOMPROG" 

40 PRINT DS"READNOMPROG" 

50 INPUT PS: INPUT TS: IKFuT P: INPUT F 

60 PRINT DS"CLOSENOMPROG" 

70 ONERR GOTO 300 

80 PRINT DS"PR#1" 

90 PRINT 

100 GET AS: PRINT CHRS (13> 
140 PRINT CHRS (9) "80N" 
150 PRINT DS-OPENPROG" 
160 PRINT DS-READPROG" 
170 IF P < > 1 THEN 190 

180 PRINT CHRS <14) TAB ( 10)PS CHRS (1 
5>: PRINT : PRINT 



Hard copy Seikosha 

Le programme de Hard Copy Seikosha du Pom's 7 ne 
fonctionne tel que! que sur la GP80M. Pour le faire 
marcher avec la GP100A, il faut changer la valeur de 
$193F ($8A) en $90. Cet octet represente une duree 
de temporisation. 



190 



200 
205 
210 
220 

230 
240 

250 
260 
280 
282 
285 

290 
300 
310 



320 
330 



PRINT PS SPC< 35 - LEN (PS) ) "PAGE 
"P SPC( 34 - LEN CTS))TS: PRINT 
: PRINT 
N = 
LS = " " 
GET AS 

IF AS = CHRS (13) THEN R = R * 1: 
GOTO 260 
LS = LS ♦ AS.-N = N ♦ 1 
IF N = 76 THEN PRINT LS : N = 6: PRI 

NT TAB ( 6) ; : GOTO 205 
GOTO 210 

PRINT LS:X = FRE (0) : L = L ♦ 1 
IF R < =45 AND L < =60 THEN 200 
IF P = F THEN 300 
P = P ♦ l: PRINT CHRS (12):R = 0:L 
= 
GOTO 190 
PRINT DS-CLOSE" 

IF F = THEN PRINT : PRINT : PRIN 
T TAB ( 30>"<<-=-=-# FIN #-=-=- 
> > " 

PRINT DS"PR#0" 

PRINT "ERREUR TYPE " PEEK (222) 



Accelerez COPYA 

Si la disquette sur laquelle vous voulez copier est deja 
initialisee, vous pouvez eviter que COPYA la reinitialise 
en suivant la procedure ci-dessous : 



1) RUN COPYA 



3) 250FT=1 



Apple lie Apple /// 

leurs interfaces, 

leurs peripheriques, 
leurs logiciels 

Librairie specialisee Apple 

djb m - b - d - c - 





'apple 

' Lordinateur personnel 



172, rue Solferino - 59800 LILLE TEL. (20) 57.91.87 



concessionnaire agree APPLE - S.A.V. sur place 

ouvert du mardi au samedi de 9h30 a 12h et de 14H30 a 19h 
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Lecture de fichiers TEXT 

Jean-Frangois Schwartz 



Le programme "utilitaire" liste ci- 
apres permet de lire a l'ecran ou 
d'imprimer tout fichier TEXT sequen- 
tiel (fichier de donnees ou fichier de 
traitement de texte). 

11 est suffisamment simple pour se 
suffire a lui-meme sur le plan des ex- 
plications. Notons simplement le role 



de la sous-routine d'erreur qui 
commence en 460. Cette derniere 
permet d'une part de detecter la fin 
du fichier (B005) et, d'autre part, de 
trailer le probleme des caracteres de 
controle qui declenchent une "ILLE- 
GAL QUANTITY ERROR" (code er- 
reur 53) a l'appel de la fonction 
ASC. La possibility d' avoir a lire un 



fichier TEXT comportant de nom- 
breux caracteres de cette nature justi- 
fie par ailleurs l'emploi de la petite 
routine en langage-machine presen- 
tee dans le manuel de reference de 
l'Applesoft (page 136) en vue de 
supprimer les problemes resultant 
d'appels trop frequents a une proce- 
dure ONERR. 



Programme LI-TEXTE 



(Inspire de Nibble Express, 
Volume II) 

5 REM •««««•»»»«»»»«»»«»«•« 
10 REM »« LECTURE DE »» 
20 REM «« FICHIERS TEXTES »« 
30 REM »« SEQUENTIELS * » 
40 REM .«««»».««••.#««»»»„,« 
45 POKE 768,104: POKE 769,168: POKE 770 

,104: POKE 771,166: POKE 772,223: 
POKE 773,154: POKE 774,72: POKE 

775,152: POKE 776,72: POKE 777,96 
50 TEXT : HOME 
60 ONERR GOTO 460 
70 DS = CHRS <4> 
80 RS = CHRS (13) 
90 CAS = CHRS (1) 

100 AS = " # LECTURE FICHIERS TEXTE # " 
110 VTAB 3: HTAB 20 - LEN (AS) / 2: IN 

VERSE : PRINT AS: NORMAL 
130 FOR X = 1 TO 40: PRINT " : " ; : NEXT 
140 PRINT : PRINT "PERMET AFFICHAGE A L 

'ECRAN DE FICHIER T." 

150 PRINT : INVERSE : PRINT "VOULEZ-VOU 

S LE 'CATALOG' CO/N) " ; : GET CS: 
NORMAL 

151 IF CS = "N" THEN 170 

152 IF CS = "O" THEN PRINT : PRINT : I 

NVERSE : PRINT "DRIVE <1> OU <2> 
? "; : GET XS: NORMAL 
154 IF XS = "1" THEN PRINT RS * DS;"CA 
TAL0G,D1" 

156 IF XS = "2" THEN PRINT RS ♦ DS;"CA 

TALOG, D2" 
170 PRINT : PRINT 

175 HTAB 25: PRINT "<S> --> STOP": PRIN 
T 

180 INVERSE : INPUT "NOM DU FICHIER TEX 

TE ? ";NFS: NORMAL 
185 IF NFS = "" THEN 150 
190 IF NFS = "S" THEN 500 



200 PRINT : INVERSE : PRINT "IMPRESSION 

(0/N) ";: GET SS: NORMAL 
210 IF SS = "0" THEN PRINT RS ♦ DS;"PR 

#1": PRINT CHRS (9);"80N": REM 

IMPRIMANTE SLOT 1 
220 PRINT 

320 PRINT DS;"OPEN ";NFS 
330 PRINT DS ; "READ " ; NFS 
340 LS = "" 
350 GET CS 

360 IF CS = RS THEN 410 
370 VC = ASC (CS) 

380 IF VC > 96 AND VC < 123 THEN CS = 

CHRS (VC - 32) 
390 LS = LS * CS: IF LEN (LS) = 255 THE 

N 410 
400 GOTO 350 
410 PRINT RS;DS 
420 PRINT CAS;LS 
430 GOTO 330 

440 PRINT "FIN DU FICHIER TEXTE" 
445 PRINT DS; "CLOSE ";NFS 
447 PRINT DS;"PR#0" 

450 PRINT : PRINT "AUTRE FICHIER ? (0/N 
)";: GET FS: IF FS = "0" THEN GO 
TO 150 

455 IF FS = "N" THEN 500 

460 CALL 768: BOO = PEEK (222): IF BOO 

= 53 THEN 390 
480 IF BOO = 5 THEN GOTO 440 
485 HOME : VTAB 10: HTAB 10 
490 PRINT "ERREUR NUMERO ";B00;" SURVEN 

UE. " 

495 FOR I = 1 TO 2000: NEXT I 
500 REM »»« FIN/BOOT *»» 

505 HOME :ZZS = " # F I N # " : VTAB 10: 
HTAB 20 - LEN (ZZS) / 2: INVERS 

E : PRINT ZZS: NORMAL 
510 VTAB 15: HTAB 5: PRINT " 140UVELLE D 

ISQUETTE ? 0/N " ; : GET AS: IF LE 

FTS (AS,1) < > "0" THEN HOME : 

END 

515 PRINT CHRS (13) + CHRS (4);"PR#6" 



Un bug de Pascal Apple (version II I) ? var^i : ?nt1ge R ; 

BEGIN 

Le programme ci-contre, quand on 1' execute, affiche " — 2768" ! i : = -16384- 16384; 

WRITELN (I ) : 
END. 
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Heureux possesseurs 

d'un Apple 

][,][%//e,ou//A 

voici votre reseau. 



CALVADOS 



• Ouvert depuis juin 1982, c'est le reseau choisi par Apple en France et par ses reven- 
deurs. 

• Bases de donnees proposees par Apple pour enrichir votre pratique de l'ordinateur per- 
sonnel : 

BDT : Base de donnees sur le materiel Apple 
BDM : Catalogue de materiels Apple et compatibles 
BDL : Catalogue de logiciels Apple et compatibles. 

• Messagerie electronique et panneau d'annonces accessibles a partir de tout point du ter- 
ritoire national. 

• Transfert de fichiers et de documents (traitement de texte et «calc») entre tout Apple oil 
qu'il soit en France, avec conversion automatique QWERTY-AZERTY et Apple ] [, //e, 

• Pour les SSCI et createurs de logiciels, un contact immediat avec plus de 120 revendeurs 
(180 fin 1983), avec possibility de diffusion de messages promotionnels. 

• Bases de donnees boursieres (bourses francaises et etrangeres). 

• Constitution de reseaux prives sans investissements. 

• Constitution de bases de donnees privees pour consultation a distance. 

• Transfert d'informations entre disquettes et bandes magnetiques standard. 

• Des tarifs qui font de Calvados le moyen de communication et le serveur le moins cher 
du marche. Conditions speciales pour clubs. 

Boite Postale 21-07 75327 Paris Cedex 07 - Tel. : 705.09.04 
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SERVICE CALVADOS 



-LE RESEAU MICBOINFORMATIQUE- 



01170 GEX 

CENTRE D'INFORMATION 
PERSONNELLE 

CROZET 

CALVA 1100 

02100 SAINT QUENTIN 
COGNET 

21, Rue Victor Basch 
(23)62.72.89 

CALVA 1087 

03200 VICHY 

03 INFORMATIQUE 

7, Rue Voltaire 

(70) 3 1. 74.00 -CALVA 1031 

06000 NICE 

D.S.A. INFORMATIQUE 

5, Bd Debouchage 
(93) 85.15.96 

CALVA 1 125 

06000 NICE 
MICRO-MEDIA 

27, Rue Delille 

(93185.28.06-CALVA 1073 

06000 NICE 

SORBONNE INFORMATIQUE 

40, Rue Giollredo 

(93)85. 17.55-CALVA 1072 

06150 CANNES LA BOCCA 
ONDE MARITIME 

28. Boulevard du Midi 

(93)47.44.30-CALVA 1024 

06600 ANTIBLS 

ESPACE INFORMATIQUE 

1, Chemin de Saint-Claude 

(93)74.78.01 -CALVA 1049 

06700 ST LAURENT DU VAR 
COMPUTERLAND 

Avenue Leon Beranger 

(93)07.61. 12-CALVA 1129 

06700 ST LAURENT DU VAR 
POINT MICRO 
CAP 3000 

193)31.24.40 -CALVA 1046 

06 MONACO 
MICROTEK 

2, Bd Rainier III 

(93)50.43.44 -CALVA 1003 

11009 CARCASSONNE 
R.2.I. INFORMATIQUE 
76, Alice d'lena 
(68)47.30.97 - CALVA 1040 

13005 MARSEILLE 
ELP INFORMATIQUE 
20, Rue Hugueny 

(91)94.91.13 - CALVA 1056 

13006 MARSEILLE 
INTERNATIONAL 
COMPUTE R/INTE RSOFT 
64, Rue de Prado 

CALVA 1103 

13006 MARSEILLE 
S.M.I. A. 

33A, Avenue Jules Cantini 
(91)80.34.12 - CALVA 1113 

13007 MARSEILLE 
PROVENCE SYSTEM 
74, Rue Ste-Le St James 
(91)33.22.33 - CALVA 1055 

13008 MARSEILLE 
MEDIATEC 

485, Avenue du Prado 

(91)71.45.45 - CALVA 1 1 12 

13100 AIX EN PROVENCE 
ECO INFORMATIQUE 
Boulevard Coq 
(42)26.20.23 - CALVA 1115 
13700 VENELLES 
SOPROGA 
Avenue de la Mouliero 
(42)61.12.43 - CALVA 1087 
14300 CAEN 

COMPUTERLAND CAEN 

12, Rue St Pierre 

<i 1)85.62.48 - CALVA 1098 

14390 TRONQUAY 
NORMANDIE INFORMATIQUE 

Residence la Tuilerie 

(31)92.56.09 - CALVA 1074 

21000 DIJON 
O.M.G. 

20. Rue Michelet 
(80)30.12.70 - CALVA 1045 



21000 DIJON 
LASOBIKOR 

7, Rue Monge 
(80)30.09.70 - CALVA 1014 
21000 DIJON 

SETTEMINFORMATIQUE 

36. Rue Jeannin 

(80) 66.16.43 - CALVA 1033 
22000 ST BR1LUL 
CENTRE INFORMATIQUE 
BRETON 

1 9, Rue de Rohan 

CALVA 1082 

25200 MONTBELIARD 
MICRO ALPHA SOFT 
1 1. Impasse du Lacquet 

(81) 97.16.46 - CALVA 1018 
29000 QUIMPER 
MATRICE DEVELOPPEMENT 
2, Venelle de Kergos 

(98)55.75.93 - CALVA 1094 

29200 BREST 

LA BOUTIQUE 
INFORMATIQUE 
156, Rue Jean Jaures 
(98)44.32.79 - CALVA 1 107 

30000 NIMES 
E.T.I. 

58. Rue Pierre Semard 
(66)36.02.52 - CALVA 1111 
30100 ALES 
ARCOMEL 
8bis. Rue Mistral 

(66)52.15.91 - CALVA 1083 
31000 TOULOUSE 
BUREAUMATIQUE 

4, Promenade des Capitouls 
(61)21.87.27 - CALVA 1128 



37000 TOURS 

BOUTIN INFORMATIC 

36, Rue Marceau 

(47)20.51.83 - CALVA 1060 

37000 TOURS 

POLY-SOFT 

23, Avenue Moliere 

(47)66.66.49 - CALVA 1010 

37000 TOURS 

SELECTRON 

20-24, Rue de Jerusalem 

(47)20.80.70 - CALVA 1093 

38100 GRENOBLE 

GAMMA INFORMATIQUE 

9, Cours de la Liberation 

(76)96.30.05 - CALVA 1048 

45000 ORLEANS 

A.G.O. 

22, Rue Etienne Dolet 
(38)54.45.13 - CALVA 1090 

45 ORLEANS 01 
A.M.C. 

13. Rue des Minimes 
(38)62.62.58 - CALVA 1116 
46013 NANTES 
SIVEA 

121. Bd Gabriel Guist'hau 
(40)47.53.09 - CALVA 1097 

53000 LAVAL 

SLAD INFORMATIQUE 

29, Rue Ambroise Pare 
(43)49.25.45 - CALVA 1026 

54000 NANCY 

JEAN VLASTOS 

MICRO INFORMATIQUE 

143. Rue Sgt Blandon 
(8)341.26.16 - CALVA 1130 



Ces revendeurs APPLE 
sont abonnes a CAIMDOS. 
Demandez-leur 
une demonstration! 



31000 TOULOUSE 

SOUBIRON 

9, Rue J.F. Kennedy 

(61)21.64.39 - CALVA 1020 

33000 BORDEAUX 

B 33 BOUTISOFT 

9, Rue de Lalande 

(56)91.55.08 - CALVA 1122 

34000 MONTPELLIER 

MICRO 34 

INFORMATIQUE 

7. Cours Gambetla 
(67)92.91.23 - CALVA 1080 
34130 VALERGUES 
C.E.B.E.A. 

Route Nationale 1 13 
(67)71.76.69 - CALVA 1079 

35000 RENNES 

COMPUTERLAND 

BRETAGNE 

1 3, Avenue du Mail 
(99)54.47.12 - CALVA 101 1 
35000 RENNES 
X-MATIC 

161, Avenue General Patton 
(99)38.31.80 - CALVA 1121 
35100 RENNES 
DELTA INFORMATIQUE 
4, Place de Bretagne 
(99)30.65.18 - CALVA 1120 
35000 TOURS 
A.R.E.I. 

8. Allee du Manoir 
CALVA 1099 



54000 NANCY 
PREC1LAB 
96, Rue Stanislas 
(8)337.06.78 - CALVA 1016 
54400 LONGWY 
SOCIETE RANDOM 
18. Rue Mercy 

CALVA 1081 

54520 LAXOU 
SEMITEC 
69, Rue de Mareville 
(8)340.43.38 - CALVA 1008 
56000 VANNES 
L'ORDINATEUR 56 
38. Bd de la Paix 
(97)54.29.50 - CALVA 1 108 

57000 MET2 

LA MICRO BOUTIQUE 
ECONOMAISON 

3. Rue Paul Bezanson 
(8)775.41.56 - CALVA 1114 
57800 PRE YM1NG-MERLEBACH 
CENTRE MICRO- 
1NFORMATIQUE 
3, Place de la Gare 
(8)781.14.89 - CALVA 1030 

59000 LILLE 

M.B.D.C. 

172. Rue Sollerino 

CALVA 1061 

59000 LILLE 

RYO INFORMATIQUE 

42, Rue de Paris 



59000 LILLE 
SIVEA 

2 Ibis. Rue de Valmy 
(20)57.88.43 - CALVA 1075 
59300 VALENCIENNES 
MICROMEGA 
38, Rue des Famars 
(27)42.30.30 - CALVA 1086 



59700 MARCQ EN BAROEUL 

MICRODATA 

INTERNATIONAL 

920. Avenue de la Republique 

CALVA 1084 

59800 L1LLL 

MICRO-1NFORMATIQUE 

5. Rue de Pas-Nouveau Siecle 
(20)54.62.22 - CALVA 1063 
60105 CREIL 
QUENEUTTE B P. 48 

(4)425.04.26 - CALVA 1032 

63000 CLERMONT-FERRAND 
FLAGELCTRIC 

142. Avenue Mermoz 

(73)92.13.46 - CALVA 1119 

63008 CLERMONT-FERRAND 
NEYRIAL INFORMATIQUE 
3, Cours Sablon 

(73)92.89.50 - CALVA 1110 

63100 BAYONNE 

LE CALCUL INTEGRAL 

3, Rue A. Briand 
(59)27.63.28 - CALVA 1089 
67000 STRASBOURG 
CILEC 

18, Quai St Nicolas 

(88)37.31.61 - CALVA 1015 

67000 STRASBOURG 
MICRO-MAT 

30,. Rue Geiler 

(88)60.68.68 - CALVA 1077 

67200 STRASBOURG 
WALZ INFORMATIQUE 
89, Route des Romains 

(88)29.54.55 - CALVA 1 105 

69003 LYON 

AB INFORMATIQUE 

18, Rue Pailleron 

(7)851.44.86 - CALVA 1041 

69003 LYON 

ALPHA SYSTEMS 

84, Av. du Marechal de Saxe 

(7)860.89.34 - CALVA 1036 

69006 LYON 

ALTI 

39, Rue Barrier 

(7)824.00.03 - CALVA 1042 

69006 LYON 

ECO-INFORMATIQUE 

50. Cours Vuitton 
(7)824.51.18 - CALVA 1066 
71000 MACON 

CLIN1QUE ELECTRONIQUE 

369, Rue de Paris 

(85)38.20.84 - CALVA 1053 

72000 LE MANS 
AESCULAPPLE 

4, Rue de Richebourg 

(43)24.97.80 - CALVA 1067 

72000 LE MANS 

ASCI 

1 15. Rue Nationale 
(43)84.28.28 - CALVA 1095 
74000 SAINT GEVRIER 
SIGEA 

34. Avenue de la Republique 

(50)57.02.80 - CALVA 1043 

74102 ANNEMASSE 

D.S.A. MICRO 

15, Rue Adrien Ligue 

(50)38.31.40 - CALVA 1044 

75001 PARIS 

MICRO SUP 

6, Place Vendome 
(1)260.67.15 - CALVA 1057 

75007 PARIS 
M.V.I. 

27, Rue Vaneau 

(1)551.66.77 - CALVA 1062 

75008 PARIS 
A.M.E. 

172. Boulevard Haussman 
(1)562.96.40 - CALVA 1059 

suite page suivame 



I 
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SERVICE CALVADOS 



75008 PARIS 
EUROPE 

COMPUTER SYSTEM 

16, Rue Washington 

CALVA 1092 

75008 PARIS 
L'ORDINATEUR 
INDIVIDUEL AFFAIRES 

30. Rue Cambarfres 
(U742.9I.00 - CALVA 1050 

75008 PARIS 
POINT MICRO 

16, Rue de la Bo&ie 
(1)265.89.35 - CALVA 1019 

75008 PARIS 
S.I.V.E.A. 

1 3. Rue de Turin 
(11522.70.66 - CALVA 1052 

75009 PARIS 

COMPUTERLAND MOS 75 

8. Rue Bleue 

(1)824.65.80 - CALVA 1064 

75009 PARIS 

JCR ELECTRONIQUE 

58, Rue Notre Dame de Lorette 

(1)282.19.80 ■ CALVA 1078 

75009 PARIS 
L.P.S. BUREAU 
46, Rue Laffitte 
(1)878.26.45 - CALVA 1007 

75010 PARIS 
SOFT MACHINE 

31, Bd de Magenta 

CALVA 1088 

75011 PARIS 

MICRO INFORMATIQUE 
DIFFUSION 

5 1 bis, Av. de la Republique 
(1)357.83.20 - CALVA 1009 

75012 PARIS 
ELLIX 

7. Rue Michel-Chasles 

(1)307.60.81 - CALVA 1005 

75012 PARIS 

GESTION MICROS 

ET SERVICES 

212-214, Avenue Daumesnil 

(1)345.28.52 - CALVA 1068 

75015 PARIS 

ILLEL CENTER 

INFORMATIQUE 

143, Avenue Felix Faure 

(1)554.97.48 - CALVA 1001 

75015 PARIS 
INFORMATIQUE 
ELECTRONIQUE FRANCAISE 

228, Rue Lecourbe 
(1)828.06.01 - CALVA 1006 
75015 PARIS 
MICRO ASSISTANCE 
66. Rue Castagnary 
(1)530.05.28 - CALVA 1037 

75015 PARIS 
SIDEG 

170. Rue St Charles 
(1)557.79.12 ■ CALVA 1013 

75016 PARIS 
MICRODATA 
INTERNATIONAL 
50, Rue Raynouard 
(1)525.81.64 - CALVA 1051 

75016 PARIS 
SOCIETE ANTIGONE 

12, Avenue Pierre ler de Serbie 
CALVA 1028 , 

75017 PARIS 

B.S.C. INFORMATIQUE 

39, Rue Cardinet 
(1)763.95.33 - CALVA 1117 
75017 PARIS 
K.A. 

6, Rue Darcet - CALVA 1027 
75017 PARIS 

NASA ELECTRONIQUE 

46. Avenue de la Giandc Armee 
CALVA 1071 



750J7 PARIS 
SOCIETE GAMIC 

27, Rue Guersant 

(1)574.02.92 - CALVA 1131 

75017 PARIS 
RANDOM FRANCE 

75, Bd Pereire 
(1)227.59.20 - CALVA 1126 

75017 PARIS 
SOCIETE FRANCAISE 
D'INFORMATIQUE 
APPLIQUEE 

41. Rue la Condamine 

CALVA 1065 

75018 PARIS 

B.I. P. L'INFORMATIQUE 
PERSONALISE E 

22, Rue Joseph Dijon 

(1)255.44.63 - CALVA 1070 

76000 ROUEN 

L'ESPACE TEMPS REEL 

9, Quai du Havre 

(35)89.29.11 - CALVA 1101 

76200 DIEPPE 
ELECTRODOM 
9, Rue Lemoyne 
(35)84.18.58 - CALVA 1002 

78000 VERSAILLES 

MICROAM1 

17. Avenue de Saint Cloud 

(3)021.30.15 - CALVA 1106 

78100 ST GERMAIN EN LAYE 

ORDI GESTION 

13. Rue Louviers 

(3)51.58.25 - CALVA 1109 

78117 CHATEAUFORT 
AVIRADIO 

Toussus-le-Noble 

(3)956.22.20 - CALVA 1127 

78190 TRAPPES 

PROBE INFORMATIQUE 

26, Avenue des Freres Lumiere 
(3)062.26.03 - CALVA 1 123 

80000 AMIENS 
PICARDIE 

MICRO-INFORMATIQUE 

6, Rue Allan 

(22)91.52.39 - CALVA 1022 

85000 LES SABLESD'OLONNE Cdx 
IDEES INFORMATIQUE 
Port Olona • B.P. 193 
(51)95.19.47 - CALVA 1069 
86000 POITIERS 
LISTE INFORMATIQUE 
34, Bd Solferino 
(49)41.43.86 - CALVA 1091 
87000 LIMOGES 
MICROLIM 
81. Bd Gambetta 
(55)34.10.12 - CALVA 1118 

92086 PARIS-LA DEFENSE 

POINT-MICRO 

Tour Neptune - CALVA 1023 

92100 BOULOGNE 

MIN1GRAPHE 

MICRO-INFORMATIQUE 

263, Bd Jean Jaures 

(1)608.44.31 ■ CALVA 1034 

95200 SARCELLES Z.I. 

MICROKEY 95 

34. Rue de I'Escouvrier 

(3)419.04.24 - CALVA 1124 

95526 CERGY-PONTOISE Cdx 

ORGAMATIQUE 

9. Chaussee J. Cesar - B.P. 304 

(3)030.37.85 - CALVA 1021 

97200 MARTINIQUE 

MICRO-TRAITEMENT 

Centre Commercial Dillon 

Fort de France 

(596)73.91.45 - CALVA 1096 

97400 LA REUNION 

MICRO SYSTEMES SERVICE 

74, Rue Labourdonnais 

CALVA 1 102 




S'ADAPTE A VOS BESOINS 

materiels - choix - decisions 




LOCATION 

APPLE// lasemaine 750 F 



PROGRAMMES MEDICAUX 

Logiciels - Progiciels 



ENSEIGNEMENT "Promotion" 

SHARP PC 1212 850FTTC 

MZ804 6.800 F TTC 



ADAPTATIONS PERSONNALISEES 

Progiciels 



depot vente 




Librairie depositaire de la documentation technique Cal- 
vados: LA NACELLE - 2. Rue Campagne-Premiere 
75014 PARIS - Tel.: 322.56.46. 



INFORMATIQUE 
12, rue de Constantinople 
75008 Paris 
Tel. : 293.53.38 
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Saisie multipage en Pascal 

Michel Lafon 



Cette procedure Pascal permet de 
saisir et de modifier un tableau de 
chiffres avec le nombre de lignes et 
de colonnes et tous les libelles hori- 
zontaux et verticaux que Ton desire. 
Cette saisie peut s'integrer a n'im- 
porte quel programme susceptible 
d'en tirer profit (statistiques, ges- 
tion...), soit generalement toute appli- 
cation similaire a Visicalc, mais recla- 
mant un traitement precis 
(regression, analyse factorielle, calcul 
matriciel, saisies de mouvements de 
stock...). 

Le processus de saisie/modification 
ressemble a celui de Visicalc. On de- 
place le curseur d'une case a une 
autre dans les quatre directions et 
I'ecran est une fenetre qui suit le cur- 
seur sur le tableau. Les "fleches" 
permettent le deplacement et la barre 
d'espacement sert de bascule entre le 
sens vertical et le sens horizontal. 
Toutefois, contrairement a Visicalc, la 
fenetre passe "brutalement" d'une 
page a une autre. 



Integration 

a d'autres programmes 

Pour la realiser. il suffit de changer 
les CONST MAXLIGTB (nombre de 
lignes) et MAXCOLTB (nombre de 
colonnes) en tete de programme et 
de modifier eventuellement le type 
des nombres du tableau TAB. Les 
parametres a fournir pour l'appel de 
la saisie sont : 

Nombre maximum de colonnes : 
MAXCOL (inferieur ou egal a MAX- 
COLTB) 

Nombre maximum de lignes : MAX- 
LIG (inferieur ou egal a MAXLIGTB) 

Nombre de colonnes par page : 
PASCOL 

Nombre de lignes par page : PASL1G 

Largeur des libelles verticaux : LAR- 
LIBV 

Largeur des colonnes : LARGCOL 

Tableau des libelles horizontaux : LH 

Tableau des libelles verticaux : LV 

Tableau d'entiers (long integer) : TB 
(a saisir et modifier). N'oubliez pas 
de remettre ce tableau a zero en cas 
de premier remplissage, ce que fait 
IN1T dans mon programme. 



A noter qu'il faut que MAXCOL soit 
un multiple de PASCOL et MAXLIG 
un multiple de PASLIG. 



Remarques sur les 
procedures habituelles 

J'ai utilise les procedures habituelles 
deja publiees par Pom's, auxquelles 
j'ai ajoute : 

• PROCEDURE EXP10(P:1NTEGER; 
VAR RES: INT); 

Retourne RES qui a pour valeur 10 a 
la puissance P. 

• PROCEDURE VAL(S:STRING;VAR 
VALEURINT); 

Transforme une chaine en un nom- 
bre entier (mSme fonction que le 
VAL de l'Applesoft). Attention, il n'y 
a pas de controle sur l'appartenance 
de C a [0.:9]. 

J'aurais prefere utiliser des fonctions 
a la place de ces deux procedures, 



ERGUN - Mode Inverse 



Sortie par GRAFTEXT (p. 7) 




mais elles m'ont refuse des INTE- 
GER [N] comme resultat. 

• PROCEDURE EMPILE(C:CHAR; 
VAR S:STRING); 

Empile le caractere C dans la chaine 
S. 

• PROCEDURE SWITCHfVAR S: 
BOOLEAN); 

Met S a "true" si S est "false" et re- 
ciproquement. 

Description des 
differentes procedures 

PRINTVERT: affiche < ou A sui- 
vant que les fleches assurent un de- 
placement horizontal ou vertical. 

SA1SINT(LMAX: INTEGER; VAR N: 
INTEGER; VAR CAR: CHAR) : fait la 
saisie d'un entier et controle qu'il ne 
depasse pas la largeur des colonnes. 
Retourne cet entier (N) et CAR qui 
contient la touche tapee apres le 
nombre (fleches, espace, ou F). 

SAISIPAGE(PREMCOL.DERCOL, 
PREMLIG,DERLIG;INTEGER) : pro- 
cede a la saisie de la page commen- 
cant a la colonne PREMCOL, ligne 
PREMLIG, et finissant a la colonne 
DERCOL, ligne DERLIG. Cette pro- 
cedure appelle successivement 
SAUTE et SAISINT. On en sort si 
Ton touche un bord ou si Ton appuie 
sur F. 

CADRE : affiche le cadre de saisie et 
ses libelles horizontaux et verticaux. 

SAUTE: aiguille sur BAS. HAUT, 
GAUCHE, DROITE. Bascule egale- 
ment VERT si on a appuye sur "es- 
pace". 

BAS, HAUT, GAUCHE, DROITE : mo- 
difient X et Y, parametres utilises 
dans SAISIPAGE pour positionner le 
curseur, ainsi que les numeros de 
lignes et de colonnes (NL et NC). 

PAGEGAUCHE a PAGEBAS : modi- 
fient les parametres PREMLIG, DER- 
LIG, PREMCOL et DERCOL. Infor- 
ment egalement si Ton a touche l'un 
des bords du tableau (BORD est mis 
a "true"). 

CORPS SAISIMULTIPAGE : appelle 
les autres « procedures jusqu'a ce 
qu'on ait appuye sur F. 
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SAISIE MULTIPAGE EN PASCAL (TYPE VISICALC) »> 

MICHEL LAFON LE 7/02/1983 «> 



• •••llltnoiUMtlKIIMOIIOlllKXtlniiiinKKOIIIMIIftlKfaniltOM) 



CONST MAXLIGTB =40; (« MODIFIER EVENTUELLEMENT SI L'ON VEUT TRAVAILLER *) 
MAXCOLTB =40; (» SUR UN TABLEAU PLUS GRAND «) 

TYPE CHOIDECA =SET OF CHAR; (*TYPES DE/DES: *> 

INT =INTEGERC103 ; <• NB DU TABLEAU «) 

TAB = ARRAY CI . .MAXLIGTB, 1 . .MAXCOLTB] OF INT;C TABLEAU A SAIS/MODIF -) 

STR10 "STRING [101; (• 1 LIBELLE .) 

LIBHOR =ARRAY CI. .MAXCOLTB] OF STR10; (» LIBELLES HORIS. ») 

LIBVER = ARRAY CI.. MAXLIGTB 3 OF STR10; (« " VERTIC. ») 

DIRECTION = ( VHAUT , VBAS , VGAUCHE , VDROITE , NEANT) ; 

VAR NOM : STRING ; 
COM , HOME , BS , EOL . SON , FS , SP , INV , NORM , CR : CHAR ; 

BONSET :CHOIDECA; 

LBH : LIBHOR ; 

LBV ILIBVER; 

TB ;TAB; 

1 ' J : INTEGER ; ( « COMPTEURS DE BOUCLEO 

(•««t.».«»t».».,».».,,,,,,».,,,»,»»,,»,,,,,,„„,,,„„„ 1( ,,,,„„ #)(|(|()(t|1(|(|l<) 

<* PROCEDURES HABITUELLES COURANTES «) 
(......••........••....•..• -..•»•■—..„...•„...»...,,... 



PROCEDURE MESSAGE < X : INTEGER ; S : STRING ) : 
BEGIN GOTOXY(0,X) ;WRITE(S,EOL) END; 

PROCEDURE PRENRETURN; 
VAR SORT: CHAR; 

BEGIN REPEAT READ < KEYBOARD , SORT ) ; UNTIL EOLN < KEYBOARD ) END; 

FUNCTION PRENCAR ( BONSET : CHOIDECA ) : CHAR ; 
VAR CH : CHAR ; 

30N : BOOLEAN ; 
BEGIN 

REPEAT 

READ ( KEYBOARD , CH ) j IF EOLN < KEYBOARD ) THEN CH:=CR; BON:=CH IN BONSET; 

IF NOT BON THEN WRITE ( CHR ( 7 ) ) ELSE IF CH INC '..'-'] THEN WRITE(CH)- 
UNTIL BON ; 
PRENCAR: =CH 
END; 

PROCEDURE PRENCHAINE ( LONGMAX : INTEGER ; BONSET : CHOIDECA ; VAR S:STRING> ■ 
VAR SI :STRING CI] ; 

CONT : STRING ; 
BEGIN 

Si:*' '; CONT: = "; 

REPEAT 

IF LENGTH(CONT) =0 THEN SI C 1 3: =PRENCAR < BONSET) 

ELSE IF LENGTH (CONT) =LONGMAX THEN SI C13 : = PRENCAR ( CCR,CHR(8) 3 ) 
ELSE SI C13 :=PRENCAR (BONSET* CCR,CHR(S)3 ) ; 
IF S1C13 IN BONSET THEN CONT : =CONCAT ( CONT , SI ) ELSE IF S1C13=CHR(8) THEN 
BEGIN WRITE(BS,' ',BS); DELETE ( CONT , LENGTH ( CONT >, 1 ) END; 
UNTIL SI C13 =CR; 
S:=CONT 
END ; 

FUNCTION OUI: BOOLEAN; 

BEGIN OUI: =PRENCAR( CO' , 'N'3 ) IN C0'3 END ; 

FUNCTION SELECT(X:INTEGER;S:STRING;BON:CHOIDECA) :CHAR; 
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BEGIN MESSAGE (X, S) ; SELECT :=PRENCAR (BON) END; 



PROCEDURE EXP 10 < P : INTEGER ; VAR RES: INT); 
VAR N : INT ; 

BEGIN N:=l; IF POO THEN BEGIN FOR I:=l TO P DO N:=N«10 END; RES:=N END; 

PROCEDURE VAL<S:STRING;VAR VALEUR : INT ) ; 
VAR E10, N,V :INT; 
C : CHAR ; 

I : INTEGER; 

BEGIN 
N:=0; 

FOR l:=l TO LENGTH (S) DO 

BEGIN C:=SCI1; EXP10<LENGTH(S)-I,E10) : V : = < ORD ( C ) -48 ) * E10 ; N:=N-V; END ; 
VALEUR :=N; 
END; 

PROCEDURE EMPILE ( C : CHAR ; VAR S: STRING) ; 
VAR AS,NS : STRING ; 

BEGIN ASt=S; NS : =CONCAT ( S , ' '); NS [LENGTH < S )♦ 1 1: =C ; S:=NS; END; 

PROCEDURE SWITCH(VAR S : BOOLEAN ) ; 

BEGIN IF S THEN S:=FALSE ELSE S:=TRUE END; 

(•„„,,„„.. • •«••». .... - *»*«•••.»».«•«) 

(* INITIALISATIONS ») 

<................»..»....».».....»«..........»..«».».......«..-.»«.«*•«•«*»») 



PROCEDURE INIT; 
BEGIN 

HOME: =CHR<27) ;E0L:=CHR<29) ;BS:=CHR<8) ;S0N:=CHR<7) ; INV: =CHR(20) ; NORM : =CHR < 20 ) 
CR:=CHRC13); FS:=CHR<21); SP:=' '; BONSET :=t'0'..'9', FS , BS , SP , ' F ' 3 ; 
WRITELN ('PATIENCE ,R.A.Z DU TABLEAU'); 

FOR l:=l TO MAXLIGTB DO FOR J:=l TO MAXCOLTB DO TB C I , J] : =0 ; 
END; 

(...... ........ .......... ...«..........«««...«) 

(. SAISIMULTIPAGE »> 

(« ») 
(. . > 

(..«..................«............................«......«.»......«......«) 



(• MAXCOL : NOMBRE MAXI DE COLONNES DU TABLEAU ») 

(• MAXLIG : NOMBRE MAXI DE LIGNES DU TABLEAU «) 

(. PASCOL : NOMBRE DE COLONNES PAR PAGE «) 

(« PASLIG : NOMBRE DE LIGNES PAR PAGE «) 

(« LARLIBV : LARGEUR DES LIBELLES VERTICAUX ») 

(« LARGCOL : LARGEUR DES COLONNES ») 

(« LH : TABLEAU CONTENANT LES LIBELLES HORIZONTAUX «) 

(« LV : TABLEAU CONTENANT LES LIBELLES VERTICAUX «) 

(. TB : TABLEAU D'ENTIER A SAISIR/MODIFIER «) 

(. «) 

(« ATTENTION: RESPECTER LA COHERENCE DES PARAMETRES ») 
(. (EX AUTANT DE LIBELLES HOR QUE DE COLONNES «> 

(. MAXCOL MULTIPLE DE PASCOL ») 

(» MAXCOL MULTIPLE DE PASLIG *) 



PROCEDURE SAISIMULTIPAGE ( MAXCOL , MAXLIG , PASCOL , PASLIG , LARLIBV , LARGCOL : INTEGER ; 

LH:LIBHOR;LV:LIBVER;VAR TB:TAB); 
VAR TOUCHE rDIRECTION; 

C : CHAR; 

PREMCOL , DERCOL , PREMLIG , DERLIG : INTEGER ; 

BORD , VERT : BOOLEAN; 

PROCEDURE PRINTVERT; 

BEGIN G0T0XY(39,0) ; IF VERT THEN WRITEC"') ELSE WRITEO') END; 
PROCEDURE SAISINT(LMAX: INTEGER; VAR N:INT;VAR CARrCHAR); 
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VAR CHAINE : STRING ; 

LONG : INTEGER; 

BEGIN 

LONG:=0; CAR : =PRENCAR (BONSET ) ; 

IF NOT (CAR IN CO'..'9'3) THEN EXIT (SAISINT) ELSE 
BEGIN 

CHAINE: =' ' ; 

WHILE (CAR IN CO'.. '9']) AND (LONG<LMAX) DO 
BEGIN 

LONG := LONG -1; 

IF LONG = LMAX THEN BEGIN N:=0; WRITE ( SON );. EXIT ( SAISINT ) • END • 
EMPILE(CAR, CHAINE) ; CAR : =PRENCAR ( BONSET > ; 
END; 

VAL (CHAINE, N) ; 
END; 
END; 

PROCEDURE SAISIPAGE(PREMCOL, DERCOL, PREMLIG,DERLIG:INTEGER) • 
VAR NUL,NUC : INTEGER ; 
X,Y : INTEGER; 

PROCEDURE CADRE; 
VAR I: INTEGER; 
BEGIN 

PAGE(OUTPUT); MESSAGE ( O ,'->,<-, S p , .. 9 , F POUR FINIR' ) • 
PRINTVERT; GOTOXY ( LARLIBV , 2 > ; 

FOR I:=PREMCOL TO DERCOL DO WRITE ( LH C I 3: LARGCOL ) ; G0T0XY(0,3)- 

FOR l:=l TO LARGCOL* (DERCOL-PREMCOL + 1 ) +LARLIBV+1 DO WRITEC-')- WRITELN- 

FOR I:=PREMLIG TO DERLIG DO 

BEGIN 

WRITE ( LV CI] : LARLIBV) ; WRITE ( ' I ' ) ; 
FOR J:=PREMCOL TO DERCOL DO 

BEGIN WRITE(TBCI,J] :LARGCOL-l) ;WRITEC : ' ) ; END; 
WRITELN; 
END; 

FOR l:=l TO LARGCOL* ( DERCOL -PREMCOL* 1 ) ♦LARLIBV+ 1 DO WRITE ('-')• 
• END ; 

PROCEDURE SAUTE; 

PROCEDURE BAS; 
BEGIN 

IF NUL=DERLIG THEN BEGIN TOUCHE : = VBAS ; EXI T ( BAS ) END- 
Y:=Y+1; NUL:=NUL*1 
END; 

PROCEDURE HAUT; 
BEGIN 

IF NUL=PREMLIG THEN BEGIN TOUCHE : =VHAUT ; EX I T ( HAUT ) END : 
Y:=Y-1; NUL:=NUL-1; 
END; 

PROCEDURE GAUCHE; 
BEGIN 

IF NUC=PREMCOL THEN BEGIN TOUCHE : =VGAUCHE ; EXIT ( GAUCHE ) END- 
X:=X-LARGCOL; NUC:=NUC-1; 
END; 

PROCEDURE DROITE; 
BEGIN 

IF NUC=DERCOL THEN BEGIN TOUCHE := VDROITE ; EXI T ( DROITE ) END • 
X: =X+LARGCOL; NUC : =NUC* 1 : 
END; 

BEGIN 

IF (C='F'> OR (C IN CO'. .'9']) THEN EXIT(SAUTE); 

IF C=SP THEN BEGIN SWITCH ( VERT ) ; PRINTVERT; EXIT(SAUTE) END ■ 

IF VERT THEN IF C=BS THEN HAUT ELSE BAS 



ELSE IF C = BS THEN GAUCHE ELSE DROITE ; 

END; 

BEGIN (« CORPS DE SAISIPAGE «> 

X:=LARLIBV+1; Y:=4; tiUL I = PREMLIG ; NUC : =PREMCOL ; 

IF NOT BORD THEN CADRE; 

REPEAT 

TOUCHE: =NEANT; GOTOXY(X,Y); SAISINT ( LARGCOL , TB [NUL , NUC] , C ) ; 

GOTOXY(X.Y); WRITE ( TB CNUL , NUC] : LARGCOL- 1 ) : WRITE (':'); GOTOXY(X.Y); SAUTE; 
UNTIL (TOUCHEoNEANT) OR (C='F') 
END ; 

PROCEDURE PAGEGAUCHE; 
BEGIK 

IF PREMCOL=l THEN BEGIN BORD : =TRUE ; WRITE(SON); EXIT < PAGEGAUCHE ) END 

ELSE BEGIN PREMCOL : =PREMCOL-PASCOL; DERCOL : =PREMCOL>PASCOL-l END; 

END; 

PROCEDURE PAGEDROITE; 
BEGIK 

IF DERCOL =MAXCOL THEN BEGIN BORD : =TRUE ; WRITE(SON); EXIT (PAGEDROITE); END 

ELSE BEGIN PREMCOL : = PREMCOL +PASCOL ; DERCOL : =PREMCOL+PASCOL- 1 ; END; 

END; 

PROCEDURE PAGEHAUT; 
BEGIN 

IF PREMLIG= 1 THEN BEGIN BORD : =TRUE ; WRITE(SON); EXIT(PAGEHAUT) ; END 

ELSE BEGIN PREMLIG : =PREMLIG-PASLIG ; DERLIG : =PREMLIG+PASLIG-1 END; 

END; 

PROCEDURE PAGEBAS; 
BEGIN 

IF DERLIG =MAXLIG THEN BEGIN BORD : =TRUE ; WRITE < SON ) ; EXIT ( PAGEBAS ) ; END 

ELSE BEGIN PREMLIG : =PREMLIG+PASLIG ; DERLIG : =PREMLIG»PASLIG- 1 ; END; 

END; 

BEGIN (« CORPS SAISIMULTIPAGE »> 

PREMCOL: =1; DERCOL: =PREMCOL+PASCOL-l ; PREMLIG: =1; DERLIG : =PREMLIG+PASLIG- 1 ; 

VERT: =FALSE; 

REPEAT 

SAISIPAGE ( PREMCOL , DERCOL , PREMLIG » DERLIG ) ; BORD : =FALSE ; 
CASE TOUCHE OF 

VGAUCHE : PAGEGAUCHE ; VDROITE : PAGEDROITE ; 
VBAS : PAGEBAS; VHAUT : PAGEHAUT 

END; 
UNTIL C='F' : 
END; 



(*»**»»»*«»****!>«»»»»*•*»*»*».«»».*».»»»«»«**.****«*»*#»**«»».»»».«*»»»»»**♦*) 

(« PROGRAMME PRINCIPAL ») 



BEGIN 

FOR l:=l TO MAXCOLTB DO STR ( I , LBH [ I ] ) ; FOR I:=l TO MAXLIGTB DO STR ( I , LBV C 1 3 ) ; 
<» PREMIER ESSAI «> PAGE ( OUTPUT ) ; WRITELN (' PREMIER ESSAI'); INIT; 
SAISIMULTIPAGE (15, 20, 5, 10, 2, 4, LBH, LBV, TB) ; 

(» DEUXIEME ESSAI *) PAGE ( OUTPUT ) ; WRITELN (' DEUXIEME ESSAI'); INIT; 
SAISIMULTIPAGE (9, 38, 3, 19 , 4 , 10 , LBH , LBV , TB ) ; 
END. 
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Fondu enchaine 

Th. Charlier de Chily 



Particulierement porte sur les applica- 
tions graphiques de PApple, je me 
suis penche avec delectation sur le 
programme de Fondu Enchaine pro- 
pose par Denis Sureau dans le 
Pom's 7. Je dois toutefois lui faire un 
petit reproche sur le plan du vocabu- 
laire, en ce sens que les operations 
qu'il effectue ne me semblent pas re- 
pondre a la definition exacte du 
"fondu enchaine" qui consiste, selon 
le Petit Larousse, en 1' apparition en 
fondu d'une image avec disparition 
de la precedents. 



En fait, le programme en question 
realise surtout un transfert rapide 
d'une page graphique a l'autre. 

Partant de cette constatation, je vous 
presente ci-apres une petite routine 
en assembleur qui respecte un peu 
plus le sens des mots. 

Si vous avez charge un graphique 
dans la page 1 et un autre dans la 
page 2, il suffit de faire CALL 768 
pour en lancer 1' execution. 



La premiere partie de ce programme 
peut etre utilisee afin de superposer 
deux images graphiques et, si le 
transfert se fait dans cette version de 
base de la page 2 vers la page 1, il 
est a noter que les modifications sui- 
vantes permettraient de faire Pin- 
verse : 

Ligne 51 INIT LDA #$40 
Ligne 53 LDA #$20 
Ligne 56 LDX #$60 



Programme Fondu Enchaine 



1 ORG $300 

2 DPBYTE EQU $6 

3 ARBYTE EQU $8 

4 C0KPTEUR EQU $18 

5 * 

6 *INITIALISflTI0N DES POINTEURS 

7 * 

8 LDA #$0 

9 STA DPBYTE 

10 STfl flRBYTE 

11 JSR INIT 

12 *************** 

13 *SUPERP0SITI0N# 



14 * 14 


2-)l 


* 


1j iHUHHUHf 


******** 


16 BCLSUP 


LDfl 


(DPBYTE), Y 


17 


ORfl 


(flRBYTE), Y 


18 


STfl 


(flRBYTE) , Y 


19 


LDfl 


#$0 


20 


STfl 


COMPTEUR 


21 


LDfl 


#10 


22 L00P1 


INC 


COMPTEUR 


23 


CMP 


COMPTEUR 


24 


BNE 


L00P1 


25 


I NY 




26 


BNE 


BCLSUP 


27 


INC 


ARBYTE+$1 


2B 


INC 


DPBYTE+$1 


29 


CPX 


ARBYTE+$1 


30 


BNE 


BCLSUP 


31 


JSR 


INIT 



32 *************** 

33 * TRANSFER! * 

34 * 2-) 1 * 

35 *************** 

36 BCLTRA LDfl (DPBYTE), Y 

37 STfl (flRBYTE) , Y 



38 


LDfl 


i$0 


39 


STfl 


C0MPTEUR 


40 


LDfl 


110 


41 L00P2 


INC 


COMPTEUR 


42 


CMP 


COMPTEUr 


43 


BNE 


L00P2 


44 


INY 




45 


BNE 


BCLTRA 


46 


INC 


ARBYTE+$! 


47 


INC 


DP8YTE*$! 


48 


CPX 


ARBYTE+$1 


49 


BNE 


BCLTRft 


50 


RTS 




51 INIT 


LDfl 


#$20 


52 


STfl 


ARBYTE+$1 


53 


LDfl 


#$40 


54 


STfl 


DPBYTE+$1 


55 


LDY 


t$0 


56 


LDX 


#$40 


57 


RTS 




58 


FIN 





Recapitulation 

♦300. 351 



0300- A9 
0308- 03 
0310- 00 
0318- 18 
0320- E6 
0328- 03 
0330- 18 
0338- Fft 
0340- E4 
0348- 09 
0350- 40 



00 85 
Bl 06 
85 18 
DO FA 
07 E4 
Bl 06 
A9 OA 
C8 DO 
09 DO 
A9 40 
60 



06 85 
11 08 
A9 OA 
C8 DO 
09 DO 
91 08 
E6 18 
ED E6 
E5 60 
85 07 



08 20 45 
91 08 A9 
E6 18 C5 
EB E6 09 
E3 20 45 
ft9 00 85 
C5 18 DO 

09 E6 07 
A9 20 85 
AO 00 A2 



Modification de la 
touche SHIFT 

De nombreux programmes offrent la 
possibility d'utiliser la "modification 
de la touche SHIFT" pour obtenir 
par soft les minuscules au clavier : 
c'est le cas en particulier d'Applewri- 
ter II et du moniteur etendu de 
Thierry Le Tallec (Pom's 8). Pour 
realiser cette modification , il suffit 
tout simplement de relier a l'aide 
d'un fil la patte du bouton 2 de la 
broche des manettes de jeu a une 
petite barre verticale situee derriere le 
clavier (la deuxieme a partir de la 
droite). 




Connecteur 
Manette 
de Jeu 

Clavier 



Bien entendu, pour pouvoir voir les 
minuscules, il faut disposer d'une 
ROM generatrice de caracteres en 
minuscule, ou utdliser un programme 
comme Applewriter II qui affiche les 
majuscules en inverse. 

La barre est reliee dans le clavier a la 
touche SHIFT, qui est ainsi connec- 
tee au bouton 2. II suffit pour un 
programme de lire l'adresse corres- 
pondante pour voir si la touche 

SHIFT est enfoncee, et agir en 

......... 
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Gestion de fichiers avec RWTS 

Gerard Michel 



Ce n'est un secret pour personne : le 
DOS de 1' Apple II n'est pas des plus 
rapides, notamment lorsqu'il lui faut 
gerer des fichiers de donnees. Par- 
tant de cette constatation, certains 
ont concu, realise et commercialise 
des systemes DOS complets, destines 
a remplacer ou relayer le systeme 
standard. 

Cet article ne se propose pas de 
vous donner un tel systeme (un nu- 
mero special de Pom's n'y suffirait 
pas, sans parler des heures de travail 
que cela supposerait...). En fait, il 
s'inscrit dans le prolongement des ar- 
ticles deja publies sur le theme des 
fichiers, pour illustrer cette fois une 
methode de gestion de table d' index 
par programme assembleur et l'acces 
"direct" aux disquettes par RWTS. 

Le systeme s' applique a la gestion 
d'un gros fichier de donnees (place 
dans le drive 2) qui se suffit a lui 
meme (fichier d'adresses pour mai- 
ling, par exemple), ou qui inter-agit 
avec d'autres fichiers plus petits 
(places sur une disquette en drive 1), 
geres quant a eux par le DOS stan- 
dard. 

L' implantation en memoire des routi- 
nes, tables et buffers est concue pour 
48K de memoire centrale (la sectori- 
sation est celle du DOS 3.3). 

La table d'index 

Rappelons qu'un element de la table 
d'index se compose d'une cle, qui 
identifie chaque enregistrement du fi- 
chier de donnees, et de l'adresse de 
cet enregistrement sur la disquette. 
L'adresse est codee en deux octets, 
mais nous y reviendrons plus en de- 
tail ulterieurement. 

La table est geree par un programme 
en assembleur et se presente sous la 
forme d'un tableau en memoire cen- 
trale, ou plus exactement d'une suc- 
cession de blocs de 256 octets cha- 
cun. Pour simplifier les choses (qui 
ne seront done pas optimales...), 
l'adresse de debut du premier de ces 
blocs doit etre un multiple de 256. 
Soit PO cette adresse en decimal 
(pour le BASIC), elle se compose en 
hexadecimal d'un octet haut 
(HB=P0/256) et d'un octet bas tou- 
jours egal a 0. 

Si LC est la longueur de la cle, non 
compris les deux octets de l'adresse- 



disquette, on peut mettre NC cles 
dans un bloc de 256 octets, avec 
NC=INT(256/LC2). 

Dans un bloc donne, 1' octet bas de 
l'adresse du premier caractere de la 
derniere cle que Ton peut y stacker 
est 00=(NC-l)*(LC+2) ; l'octet 
haut de cette adresse correspond a 
HB pour le premier bloc, HB+1 
pour le second... 

Dans les deux premiers octets avant 
PO, on stocke le nombre d' elements 
qui se trouvent dans la table, soit 
NZ=PEEK(P0-2)*256+PEEK(P0-l). 

L'adresse du premier caractere de la 
derniere cle de la table peut se calcu- 
ler de la facon suivante (HM=octet 
haut et LM= octet bas) : 

NB= nombre de blocs utilises pour 
stacker les NZ cles=INT(NZ/NC) 

• Si NZoNONB : 

HM=HB+NB 

LM=((NZ-NB*NC)-l)*(LC+2) 

• Si NZ=NC*NB : 

HM=HB+NB-1 
LM=00 

Pour la suite, baptisons AMAX= 
HM*256+LM cette adresse. 

Principe de recherche 
dans la table 

Une fois entree la cle recherchee (au 
clavier, ou a partir d'un autre fichier), 
on la stocke dans une zone de travail 
commencant en $311. Ensuite, on la 
compare a la derniere cle de chacun 
des blocs utilises, jusqu'a ce qu'on 
trouve, si possible, celui dans lequel 
elle pourrait se situer (le premier 
pour lequel elle est inferieure ou 
egale a la derniere cle stockee). On 
explore alors ce bloc a partir de la 
premiere cle qu'il contient, pour voir 
si la cle recherchee s'y trouve. Dans 
tous les cas, la routine mettra en $1F 
le resultat de sa recherche (0 si la cle 
n'existe pas et 1 dans le cas 
contraire) et rangera dans $1C et 
$1D l'adresse, virtuelle ou reelle, de 
la cle recherchee dans la table. 

Cette methode suppose que les cles 
soient classees dans l'ordre alphanu- 
merique. Ainsi, une autre partie de la 
routine assure le decalage de la 
table, en cas de creation d'une nou- 
velle cle dont l'adresse virtuelle est 
inferieure ou egale a AMAX (en 
d'autres termes, lorsque la nouvelle 



cle ne vient pas en extreme fin de la 
table). 

De meme, en cas d'annulation d'une 
cle qui ne serait pas la derniere de la 
table, une troisieme sous-routine as- 
sure le decalage "vers le bas" et 
l'ecrasement de la cle concernee. 



Remarques pratiques 

Le programme BASIC liste ci-apres 
donne un exemple d' utilisation pour 
une table comportant 500 cles de 9 
caracteres. L'adresse PO est calculee 
comme suit : 

-NC=INT(256/11)=23 

- II faut done 22 blocs pour contenir 
les 500 cles, soit 5632 octets, plus 
deux pour stacker NZ, arrondissons a 
5640 octets. 

- Le dernier buffer de la gestion du 
fichier (voir plus loin) commencant a 
35207, on a HB=INT((35207-5640)/ 
256) =115, et P0= 115*256=29440. 

L' initialisation de cette table (avant 
tout traitement) se fait done par : 

POKE 29438.0:POKE 29439,0: 
BSAVE TABLE A29438,L5640,D1 
(on la place sur la meme disquette 
que les programmes, en Dl). 

Le chargement de la table en me- 
moire a partir des programmes se 
fera ensuite par BLOAD. 

Le fait de disposer d'une table utilisa- 
ble sous forme d'un tableau gerable 
en assembleur presente de nom- 
breux avantages : 

- BLOAD et BSAVE sont beaucoup 
plus rapides que la lecture ou l'ecri- 
ture d'un fichier TEXT dans lequel 
seraient stockees les cles. 

- En memoire centrale, vous n'avez 
plus a creer un tableau de variables 
alphanumeriques pour stocker les 
cles. Vous economisez ainsi : 

• 3 octets par element de la table 
(lies au traitement des tableaux 
par BASIC) 

• les problemes de "garbage" lies a 
la gestion d'un grand tableau dont 
les valeurs changent souvent, lors 
des decalages de la table notam- 
ment. 

- Si votre programme est interrompu 
(par RESET par exemple) vous pou- 
vez toujours sauver votre table par 
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BSAVE, alors que vous ne pourriez 
plus sauver un tableau par PRINT 
D$... 



La gestion du fichier de 
donnees 

Principes generaux 

On utilise la routine RWTS, qui per- 
met de lire ou d'ecrire directement 
un secteur (soit 256 octets) sur la dis- 
quette. 

Revenons tout d'abord a 1'adresse 
des enregistrements evoquee plus 
haut. Elle est codee sur deux octets, 
avec : 

• octet 1 : piste physique sur la dis- 

quette (P) 

• octet 2 : 4 bits de droite = sec- 

teur physique (S) 

: 4 bits de gauche = posi- 
tion de Fenregistrement 
dans le secteur (PO). 

Ainsi, pour lire un enregistrement. 
par exemple, on decoupe le 
deuxieme octet de 1'adresse stockee 
dans la table d'index, on va lire le 
secteur S de la piste P dans un buf- 
fer, et Ton sait alors que les donnees 
de 1' enregistrement concerne com- 
mencent en PO dans ce buffer. En 
fait, les positions etant comptees a 
partir de et si LE est la longueur de 

I enregistrement, le premier com- 
mence en 0, le second en LE, le troi- 
sieme en 2*LE... Tout depend bien 
sur de LE et Ton voit bien que, dans 
le systeme presente ici, la longueur 
de 1' enregistrement ne doit pas de- 
passer 256 caracteres (c'est un 
exemple simplifie, ne l'oublions 
pas...). 

II est certain egalement que l'effica- 
cite de l'occupation de la disquette 
depend du rapport entre LE et 256 : 
si vos enregistrements font 130 ca- 
racteres, vous ne pouvez en mettre 
qu'un par secteur, et perdez ainsi 
presque la moitie de la capacite de 
stockage. Autant dire qu'il vaut 
mieux s'arranger pour n'avoir que 
128 caracteres par enregistrement au 
lieu de 130 ! 

La disquette "Fichier" n'est pas ini- 
tialisee selon la procedure standard 
(voir le programme IN1T ci-apres). 
On utilise la commande de forma- 
tage de RWTS (Cf Manuel DOS 3.3) 
et Ton ecrit ensuite sur le secteur 
de la piste les informations neces- 
saires a la gestion du fichier. A partir 
du secteur 1 de la piste jusqu'au 
secteur 15 de la piste 34, tous les 



secteurs sont disponibles pour vos 
enregistrements. 

Une sous-routine speciale assure le 
transfert des donnees des variables 
de Fenregistrement vers le buffer du 
fichier et du buffer vers les variables. 
En effet, utiliser des instructions 
PEEK et POKE retarde sensiblement 
les operations de lecture/ecriture et 
suppose l'emploi de variables alpha- 
numeriques dont le contenu change 
a chaque transfert de caractere, d'ou 
saturation de la memoire. 



Initialisation d'une disquette 
Fichier 

Le seul parametre a fournir est la 
longueur de Fenregistrement LE 
(ligne 15 du programme INIT). Le 
RUN de ce programme assure en- 
suite 1' initialisation d'une disquette 
vierge placee dans le drive 2, c'est-a- 
dire : 

- formatage de la disquette 

- ecriture en piste 0/secteur (physi- 
ques) des parametres de depart : 
premiere piste jamais utilisee (0) et 
premier secteur jamais utilise (1), 
premiere piste et premier secteur 
libres (egalement et 1), nombre de 
zones par secteur (INT(256/LE)), 
nombre de zones utilisees dans le 
premier secteur libre (0), adresse de 
la derniere zone liberee (piste =0 et 
secteur=0) mise a pour signaler 
1' absence de zones liberees pour 
1' instant, longueur de 1' enregistre- 
ment. 

A noter que le terme "secteur" em- 
ploye ci-dessus se rapporte a la defi- 
nition de 1'adresse, c'est-a-dire qu'il 
comporte a la fois 1' indication du sec- 
teur physique et de la position dans 
ce secteur ; il s'agit done d'un "sec- 
teur logique". 



Utilisation des routines 

L'instruction "&" permet d'acceder 
aux traitements de gestion du fichier 
(la ligne 2 du programme BASIC de 
demonstration place a 1'adresse $3F5 
un JMP $8E70). Quatre instructions 
sont ainsi disponibles : 

• &W : ecriture d'un enregistrement 

• &R : lecture d'un enregistrement 

• &M : modification d'un enregistre- 
ment 

• &A : annulation d'un enregistre- 
ment. 

Au niveau du BASIC, vous n'avez 
plus a vous preoccuper de l'affecta- 



tion des adresses aux enregistrements 
ou de la recuperation des adresses li- 
berees par des annulations d' enregis- 
trements ; tout cela est pris en charge 
par les routines assembleur. 

Quelques mots maintenant au sujet 
des variables BASIC qui constituent 
l'enregistrement. 

Ce sont des variables alphanumeri- 
ques simples (27 au maximum) dont 
il convient de specifier le premier ca- 
ractere du nom (Z$="V" dans notre 
exemple) et le nombre diminue de 1 
(soit 2 dans notre exemple). Les va- 
riables utilisees ci-apres sont ainsi 
VA$, VB$ et VC$. 

Si vous voulez utiliser 5 variables 
dont le non commence par W, il 
vous suffit de modifier la ligne 4 
comme suit : 

... : Z$="W": POKE 250,ASC(Z$): 
POKE 249,4:WA$ = "":WB$="": 
WC$="":WD$="":WE$="" 

Les routines assurent ensuite auto- 
matiquement le transfert du contenu 
de ces variables declarees dans l'en- 
registrement sur disquette et recipro- 
quement. A noter que la longueur de 
chacune de ces variables est enregis- 
tree en meme temps que son 
contenu : n'oubliez done pas de ra- 
jouter un octet par variable lorsque 
vous calculez votre LE. 

Attention egalement, en ce qui 
concerne le transfert "enregistrement 
vers variables", au fait que Ton 
court-circuite la procedure Applesoft 
d'affectation des valeurs aux varia- 
bles alphanumeriques et de controle 
de la place libre (le fameux FRE(0)). 
C'est pourquoi nous utilisons ici l'une 
des versions des routines FRE pre- 
sentees dans le numero 2 de Pom's 
afin d'effectuer si necessaire le "Gar- 
bage Collection" apres chaque ope- 
ration de lecture (CALL 37500). Ne 
pas le faire, notamment au cours 
d'une lecture sequentielle du fichier, 
risque de laisser "descendre" les 
chatnes de caracteres jusqu'au bas 
de la memoire, avec les resultats sur- 
prenants que cela suppose ! 

Enfin, notons que les disquettes "Fi- 
chier" ainsi gerees sont copiables 
sans probleme par COPYA. 




48 



Pom's n° 9 



Programme INIT 



1 REM * INITIALISATION D'UNE DISQUETTE 

FICHIER EN D2 » 

2 REM 

10 HIMEM: 29900 

15 LE = 100: REM LONGUEUR DE L'ENREGIST 

REMENT 
20 DIM ZX(30) 

25 REM TABLE IOB ET TABLE CARACTERISTI 

QUES A PARTIR DE 29920 - ROUTINE 

D'APPEL A RWTS EN 768 
30 FOR 1=0 TO 28: READ ZX < I ) : NEXT 
40 FOR I = TO 20: POKE 29920 * I , ZX ( I 

): NEXT : FOR I = TO 7: POKE 76 

8 - I,ZX(21 ♦ I): NEXT : CALL 768 
50 DATA 1,96,2,0,0,0,241,116,0,156,0, 

0,4,0,0,96, 1 ,0, 1 ,239,216,169, 116, 

160,224,32,217,3,96 
55 REM POKE LES PARAMETRES DE LA DISQU 

ETTE A PARTIR DE 785 ET LES ECRIT 
ENSUITE EN PISTE O/SECTEUR 
60 N = INT (256 / LE) : POKE 785,0: POKE 
786,1: POKE 787,0: POKE 788,1: P 

OKE 789, N: POKE 790,0: POKE 791,0 
: POKE 792,0: POKE 793, LE 
70 POKE 29924,0: POKE 29925,0: POKE 299 

28,17: POKE 29929,3: POKE 29932,2 

: POKE 29936,2: CALL 768: END 



Programme LIT-TF 



REM LECTURE INTEGRALE DU FICHIER 

1 HIMEM: 29437 

2 POKE 1013,76: POKE 1014,112: POKE 101 

5,142: FOR I = TO 22: READ ZX : 
POKE 35975 * I , ZX : NEXT 

3 DATA 1,96,2,0,0,0,152,140,0,156,0 

.0,4,0,0,96, 1,0,1,239,216,0,0 
5 ZS = "V": POKE 250, ASC (ZS) : POKE 249 

,2:vas = M ":VB* = '•••:vcs = 

10 DS = CHRS (4) : PRINT DS"BLOAD TABLE" 
: PRINT DS"BLOAD WRMA.OBJ": PRINT 
DS"BLOAD VAR.OBJ": PRINT DS"BLOA 
D FRE(2>" 

20 ao = 29440 : l = 9: mx = 242 :n = 23: ho = 
H5:le = ioo:nz = peek <ao - 2) 

« 256 + PEEK (AO - 1) 
30 NB = INT (NZ / N):HM = HO ♦ NB:LM = 
UN2 - NB * H) - U * iU 1 ?J! IF 
NZ = N * NB THEN LM = MX : HM = HM 
- 1 

40 AM = HM « 256 ♦ LM : A = AO 
50 ZS = M ":l = 1 

60 ZS = ZS * CHRS ( PEEK (A ♦ I - 1)>:I 

= I ♦ 1: IF I < =L THEN 60 
70 POKE 29, INT (A / 256): POKE 28, A - 
(256 « INT (A / 256)): POKE 9,L: 
POKE 35215, LE: & R: CALL 37500 
75 PRINT ZS: PRINT VAS : PRINT VBS : PRIN 
T VCS: PRINT : IF A = AM THEN EN 
D 

80 IF A = AO * MX THEN HO = HO * 1 : A = 

HO * 256: AO = A: GOTO 50 
90 A = A ♦ L ♦ 2: GOTO 50 



Programme TEST. RI A. WRM A. V AR 

1 HIMEM: 29437 

2 POKE 1013,76: POKE 1014,112: POKE 101 

5,142: FOR I = TO 22: READ ZX : 
POKE 35975 * I,Zx: NEXT : REM PO 
KE JMP ADRESSE POUR 6. - POKE TABL 
E IOB + TABLE CARACTERISTIOUES 

3 DATA 1,96,2,0,0,0,152,140,0,156,0, 

0,4,0,0,96, 1,0, 1 ,239,216,0,0 

4 LE = 100 :P0 = 29440 : HB = PO / 256 : LC = 

9:L2 = LC + 2.-NC = INT (256 / L 
2>:00 = <NC - 1) « L2:AI = PO - 2 
:LI = 5640:ZS = "V": POKE 250, AS 
C (ZS): POKE 249, 2: VAS = "":VBS = 
•"■:VCS = REM TOUS LES PARAM 

ETRES DU FICHIER SONT DEFINIS ICI 

5 BLS = " ":DS = CHRS (4):RUS = 

DS ♦ "PR#0": PRINT DS"BL0AD RI A . 
OBJ" : PRINT DS"BLOAD WRMA.OBJ": P 
RINT DS"BLOAD VAR.OBJ": PRINT DS" 
BLOAD FRE(2) " : GOTO 100 
25 REM PAR SECURITE TOUS LES PARAMETRE 
S SE TROUVANT DANS DES VARIABLES 
DE TRAVAIL SUSCEPTIBLES D'ETRE UT 
ILISEES PAR D'AUTRES ROUTINES ASS 
EMBLEUR SONT "REPOKES" AVANT CHAQ 
UE APPEL A LA ROUTINE DE GESTION 
DE TABLE D' INDEX (GOSUB 30) 
30 POKE 6,0: POKE 7,HB: POKE 8,00: POKE 
9,LC: POKE 207, L2 : POKE 28, Al: P 
OKE 29,A2:NB = INT (NZ / NO'.HM 
= HB ♦ NB:LM = ((NZ - NB * NO - 
1) « L2: IF NZ = NC * NB THEN LM 
= OO-.HM = HM - 1 
35 POKE 26, LM: POKE 27, HM: RETURN 
100 PRINT DS"BLOAD TABLE" : NZ = PEEK (A 
I) * 256 + PEEK (AI * 1): PRINT 

RUS 

110 PRINT "NZ="NZ: PRINT : PRINT "1-CRE 
2-MOD 3-CONS 4- ANN . 5-FIN " 
;: GET 2s:2x = vaL (ZS) : if ZX < 
1 OR ZX > 5 THEN 110 
120 PRINT : IF ZX = 5 THEN POKE AI, IN 
T (NZ / 256): POKE AI + 1 , NZ - (2 
56 » INT (NZ / 256)): PRINT DS"B 
SAVE TABLE, A"AI",L"LI",D1": PRINT 
DS-CLOSE": END 

125 IF NZ = AND ZX > 1 THEN PRINT "P 

AS DE CLES": GOTO 110 

126 IF NZ = 500 AND ZX = 1 THEN PRINT 

"CAPACITE TABLE ATTEINTE" : GOTO 1 
10 

130 INPUT "CLE : ";SS: IF LEN (SS> > L 

C THEN 130 
135 REM LA CLE SS EST POKEE A L'ADRESS 

E S311 (ZONE "CLE" DE LA ROUTINE 

ASSEMBLEUR) 
140 SS = LEFTS (SS + BLS,LC): FOR 1=1 
TO LC:Z(I) = ASC ( MIDS CSS, 1,1 

)): POKE 784 + I,Z(I): NEXT : GOS 

UB 30: ON ZX GOTO 150,250,250,250 
150 IF NZ = THEN 170 

160 CALL 36000:A1 = PEEK (28):A2 = PE 
EK (29):A0 = Al * 256 « A2 : IF P 
EEK (31) = 1 THEN PRINT "EXISTE 
DEJA" : GOTO 110: REM A0= ADRESSE 
REELLE OU VIRTUELLE DE LA CLE DA 
NS LA TABLE 
170 INPUT "DONNEE : ";VAS: INPUT "DONNE 



\ 17i 
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"; VCS 

LEN < 
TROP L 



E : ";VBS: INPUT "DONNEE 
175 IF LEN (VAS) + LEN (VBS) 

VCS) > LE - 3 THEN PRINT 

ONG": GOTO 170 
178 IF NZ = THEN AO = PO: POKE 28,0: 

POKE 29, HB: GOTO 190 
180 IF AO < = HM » 256 + LM THEN GOSU 

B 30: CALL 36176: REM DECALAGE P 

OUR INSERTION DANS LA TABLE 
190 FOR I = 1 TO LC: POKE AO + I - 1,Z( 

I): next :nz = nz + i: rem met l 

A CLE A SA PLACE DANS LA TABLE 
200 & W: IF PEEK (35988) = 255 THEN P 
RINT "PLUS DE PLACE": POKE 35988, 


205 GOTO 110 

250 CALL 36000:A1 = PEEK (28):A2 = PE 
EK <29>:A0 = Al + 256 * A2 : IF P 
EEK (31) = THEN PRINT "N'EXIST 
E PAS": GOTO 110 

260 POKE 35215, LE: 5, R:S = PEEK (8):P 



= PEEK (24):Z1 = PEEK (6):Z2 = 
PEEK (7) : CALL 37500 
265 PRINT "DONNEE : "VAS: PRINT "DONNEE 
: "VBS: PRINT "DONNEE : "VCS: ON 
Z* GOTO 110,270,280,290 
270 ZLS = "NOUVELLE DONNEE : " : PRINT ZL 
S;: INPUT VAS: PRINT ZLS; : INPUT 
VBS: PRINT ZLS;: INPUT VCS 
275 POKE 35209, P: POKE 6,Z1: POKE 7,Z2: 

POKE 35215, LE: 6. M : GOTO 110 
280 PRINT "APPUYEZ SUR UNE TOUCHE";: GE 

T ZS: PRINT : GOTO 110 
290 INPUT "ANNULATION CONFIRMEE ? ";ZS: 

IF ZS < > "0" THEN 110 
300 IF AO < HM « 256 ♦ LM THEN GOSUB 3 
O: CALL 36314: REM DECALAGE DE L 
A TABLE POUR ECRASER LA CLE ANNUL 
EE 

310 NZ = NZ - 1 : POKE 8,S: POKE 24, P: & 
A: GOTO 110 



1 
2 
3 
4 
5 
6 
7 
8 
3 
10 



; HH««HWH««««HHHHH 

;* * 

;* RECHERCHE/INSERTIOi/WffAJLflTION* 
;* DANS TABLE D' INDEX EN MEMO I RE * 
;* PROGRAMME OBJET : Rift. OBJ « 

;* * 

• iHHHHHHUHHHHHHHHHHUWtHH III I I H 



Lisa 
1.5 



ORG $8CA0 
OBJ $800 

11 ADEB EPZ $6 

12 OOMX EPZ $8 

epz $9 

EPZ $18 
EPZ $lfl 
EPZ $1C 
EPZ $1F 
EPZ $C? 
EPZ $D6 
EPZ $CF 
EQU $311 



13 L 

14 ABEX 

15 AMAX 

16 ACLE 

17 EX 

18 VP 

19 APRO 

20 L2 

21 CLE 

22 ; 

23 ; RECHERCHE 

24 . 

25 
26 
27 
28 
29 
30 

31 S6 

32 



;ADRESSE DEBUT TABLE 
; OCTET BAS ADRESSE DERNIERE CLE D'UN BLOC 
; LONGUEUR DE LA CLE 
; ADRESSE DU BLOC EXAMINE 
; ADRESSE DERNIERE CLE DE LA TABLE 
;CONTIENT L' ADRESSE DE LA CLE CHERCHEE 
;SIGNALE RESULTAT RECHERCHE 
.■VARIABLE DE TRSVSIL 
;ID£M 

; LONGUEUR DE LA CLE + 2 
;STQCKA6E VALEUR DE LA CLE 



; EX AMEN PREMIER BLOC 



33 
34 
35 
36 
37 

38 SI 

39 S2 



LDA #0 
STA EX 
LDA ADEB 
STA ABEX 
LDA ADEB+1 
STA ABEX+1 

CMP AMAX+1 ; DERNIER BLOC ? 
BNE SI 
LDA AMAX 
SEC 

SBC ADEB 
TAY 
JMP S2 
LDY OOMX 
LDX #0 



<*U OIL 


U/H \ Hot a; 


A1 

Hi 


CLE, X 




OPT CT 
DLL SO 


AT 


Tkin OA 


hh GT 


LlM Hdca+1 






A£ 


DCn cc: 


A7 


t»ip nnrw ■ 4 

INC RBEX+1 


AA 


1 T\A ADCVxi 

U/H HbtX+1 


AO 
43 


tun fir 

jrp S6 




TYfl 


Rl 


ctv un 


3Z 


ccr 


C7 

JO 


SBC VP 


54 


TAY 


55 


CPY OOMX 


56 


BEO S7 


57 


INY 


56 


INY 


59 


TYA 


60 


CLC 


61 


ADC L 


62 


CLC 


63 


ADC ABEX 


64 


STA ACLE 


65 


LDA AMAX+1 


66 


STA ACLE+1 


67 


RTS 


68 S7 


LDA ADEB 


69 


STA ACLE 


70 


LDX AMAX+1 


71 


INX 


72 


STX ACLE+1 


73 


RTS 


74 S4 


BED SB 


75 


JMP S9 


76 S8 


INX 


77 


CPX L 



Y ;COMPARAISON DE LA CLE AVEC LA DERNIERE 
;DU BLOC CARACTERE PAR CARACTERE 
;LA CLE CHERCHEE EST SUPERIEURE 



;FIN DE TABLE ? 
;EXAMEN DU BLOC SUIVANT 

;CALCUL ADRESSE VIRTUELLE DE LA CLE 



; DERNIERE CLE ACTUELLE=FIN D'UN BLOC 



;OCTET BflS = ABEX+Y-X+ (L+2) 



; DEBUT D'UN NOUVEAU BLOC 



;EGALITE CARACTERE/CARACTERE 
; CARACTERE SUIVANT S'lL EXISTE 
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;0K - C'EST Lfl DERNIERE DU BLOC 

;ON A TROUVE ! 

;CALCUL ADRESSE DE Lfl CLE 



; OCTET BflS = flBEX+Y-X 



;SI ELLE EXISTE Lfl CLE SE TROUVE DANS 
;CE BLOC. ON LE REPREND flU DEBUT 



CLE <=CELLE EXAMINEE 

Lfl CLE EST SUPERIEURE 

ON Lfl COMPARE A LA SUIVANTE 



78 BEQ SIO 

79 I NY 

80 JMP Sll 

81 SIO LDA #1 

82 STfl EX 

83 INY 

84 TYA 

85 CLC 

86 ADC flBEX 

87 SEC 

88 SBC L 

89 STA ACLE 

90 S15 LDA ABEX+1 

91 STfl ftCLE+1 

92 RTS 

93 S9 LDY 10 

94 S13 LDX #0 

95 S17 LDA (flBEX), Y 
% CMP CLE, X 

97 BCS S12 

98 INY 

99 INY 

100 TYA 

101 CLC 

102 ADC L 

103 STX VP 

104 SEC 

105 SBC VP 

106 TAY 

107 JMP S13 

108 S12 BEQ S14 

109 TYA 

110 CLC 

111 ADC ABEX 

112 STX VP 

113 SEC 

114 SBC VP 

115 STfl ACLE 

116 JMP S15 

117 S14 INX 

118 CPX L 

119 BNE S16 

120 JMP SIO 

121 S16 INY 

122 JMP S17 

123 ; 

124 ; DECALA6E POUR INSERTION 

125 . 

126 LDA AMAX+1 ;ON PART DE LA FIN DE Lfl TABLE 

127 STfl ftBEX+1 

128 LDA ADEB 

129 STA ABEX 

130 LDA flMAX 

131 SEC 

132 SBC ADEB 

133 TAY 

134 CPY OOMX 

135 BEQ Tl 

136 JMP T2 



;Y=Y-X+(L+2> ET ON REPART... 

;EGALITE CARACTERE/CARACTERE 
;CLE INFERIEURE A CELLE EXAMINEE 
;CALCUL DE SON ADRESSE VIRTUELLE 



;OCTET BAS = ABEX+Y-X 
;CARACTERE SUIVANT SI IL EXISTE 

;TOUS CARACTERES SONT EGflUX 



137 Tl 


LDA ADEB 


;PROBLEME DE3 FRONTIERES DE BLOC 


138 


STA APRO 




139 


LDX flBEX+i 




140 


INX 




141 


STX APRO+1 




142 


JSR T3 




143 


JMP T4 


; DEBUT DU BLX SUIVANT 


144 T3 


LDX #0 




145 T6 


LDA (ABEX),Y 




146 


STA CLE, X 


;STOCKE PROVISOIREMENT L' ELEMENT 


147 


INX 


;A DECALER DANS CLE 


148 


CPX L2 




149 


BEQ T5 




150 


INY 




151 


JMP T6 




152 T5 


RTS 




153 T4 


LDX #0 




154 


LDY W 




155 T8 


LDA CLE,X 


;CLE -> DEBUT DU BLOC SUIVANT 


156 


STfl (ftPRO),Y 




157 


INX 




158 


CPX L2 




159 


BEQ T7 




160 


INY 




161 


JMP T8 




162 T7 


LDA OOMX 




163 


STfl VP 




164 


JMP T9 




165 T2 


STY VP 




166 


JSR T3 




167 


INY 


;DECALAGE A L' INTERIEUR D'UN BLOC 


168 


LDX 10 


;TRftNSFERT DANS CLE 


169 Til 


LDft CLE.X 


;CLE -> ADRESSE SUIVANTE DU BLOC 


170 


STfl (flBEX >,Y 




171 


INX 




172 


CPX L2 




173 


BEQ T9 




174 


INY 




175 


JMP Til 




176 T9 


LDY VP 




177 


LDA ABEX+1 




178 


CMP ACLE+1 




179 


BNE T12 


;BLOC OU IL FAUT INSERE LA CLE ? 


180 


LDA ADEB 




181 


CLC 




182 


ADC VP 




183 


CMP ACLE 




164 


BNE T12 


; ADRESSE OU IL FAUT INSERER ? 


185 


RTS 




186 T12 


CPY #0 




187 


BEQ T13 




188 


LDA VP 


; DEBUT DU BLOC TRAITE ? 


189 


SEC 




190 


SBC L2 


;DECALABE ELEMENT PRECEDENT 


191 


TAY 




192 


JMP T2 




193 T13 LDY OOMX 




194 


DEC ABEX+1 




195 


JMP Tl 


;PASSE FIN BLOC PRECEDENT (FRONTIERE) 
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51 



1% 

197 

198 ;— 

199 

200 

201 

202 

203 

204 

205 

206 

207 U13 
208 
209 
210 Ul 
211 
212 
213 
214 
215 
216 
217 
218 U4 
219 
220 
221 
222 
223 
224 
225 U3 
226 
227 U6 
228 
229 
230 
231 
232 
233 
234 U5 
235 



DECflLflGE : ECRfiSER CLE ftNNULEE 



;0N PART DE LA CLE CONCERNEE 



; DEBUT BLOC SUIVftNT 



LDfl flDEB 
STfl flBEX 
LDfl ftCLE+1 
STfl flBEX+1 
LDfl flCLE 
SEC 

SBC flDEB 
TOY 

CPY OOMX 
BEQ Ul 
JMP U2 

LDfl flDEB ; FRONTIERS DE BLOC 
STfl flPRO 
LDX flBEX+1 
INX 

STX flPRO+1 
LDX 10 
STY VP 
LDY #0 

LDfl (ftPRO),Y ;1ER BLOC SUIVftNT -> CLE 

STfl CLE.X 

INX 

CPX L2 
BEQ U3 
INY 

JMP U4 
LDX #0 

LDY VP 

LDfl CLE.X ;REMPLfiCE DERNIER ELEMENT DU BLOC 

STfl (ABEX),Y 

INX 

CPX L2 
BEQ U5 
INY 

JMP U6 
LDfl flPRO 
STfl flBEX 



; DECflLflGE DflNS LE BLOC SUIVftNT 



236 

237 

238 

239 

240 U2 

241 

242 

243 

244 

245 

246 U9 

247 

248 

249 

250 

251 

252 

253 U8 

254 

255 Ull 

256 

257 

258 

259 

260 

261 

262 U10 

263 U7 
264 
265 
266 

267 U12 

268 

269 

270 

271 

272 

273 U14 

274 

275 



LDfl 

STfi 

LDY 

JMP 

STY 

TYfl 

CLC 

ADC 

TflY 

LDX 

LDfl 

STfl 

INX 

CPX 

BEQ 

INY 

JMP 

LDY 

LDX 

LDfl 

STfl 

INX 

CPX 

BEQ 

INY 

JMP 

INY 

LDfl 

CMP 

BEQ 

JMP 

TYfl 

CLC 

ftDC 

CMP 

BEQ 

JMP 

RTS 

DCM 

END 



ftPRO+1 
flBEX+1 
#0 

U7 
VP 



L2 



;DECftLA6E DflNS UN BLOC 



; ELEMENT SUIVftNT : Y=Y+(L+2) 

#0 

(flBEX), Y ; ELEMENT SUIVANT -> CLE 
CLE,X 

L2 
U8 

U9 
VP 

to 

CLE,X ;CLE -> ELEMENT "ECRftSE" 
(flBEX), Y 

L2 
U10 

Ull 

; DEBUT ELEMENT DEPLACE 

flBEX+1 

AMAX+1 ; DERNIER BLOC ? 

U12 

U13 



flDEB 
flMflX 
U14 
U13 

"INT" 



;DERNIERE CLE DE Lfl TABLE ? 



1 
2 
3 
4 
5 
6 

7 ; 

8 
9 

10 PJU 

11 PSU 



******************* ************** 

* * 

I* BESTION DU FICHIER/DONNEES * 

* PROGRflMME OBJET : WRMA.OBJ * 
;* * 



Lisa 
1.5 



ORG $8E70 
OBJ $800 

EQU *8987 ;PJU/PSU = 1ERE ADRESSE LOGIQUE 
EQU $8988 ;JAMAIS UTILISEE 

12 PPL EQU $8989 ;PPL/PSL = 1ERE ADRESSE LOGIQUE LIBRE 

13 PSL EQU $898A 

14 NZS EQU $898B ;NBRE ZONES/SECTEUR PHYSIQUE 

15 NZU EQU $898C ;NBRE ZONES UTILISEES/SECTEUR EN COURS 

16 DZLP EQU $898D ;DZLP/DZLS = DERNIERE ADRESSE LOGIQUE 

17 DZLS EQU $898E LIBEREE 



18 LE EQU 

19 IOB EQU 

20 COM EQU 

21 BUF2 EQU 

22 DPL EQU 

23 DSL EQU 

24 TRfll EQU 

25 TRA2 EQU 

26 ACLE EPZ 

27 L EPZ 

28 Zl EPZ 



29 Z2 

30 S 

31 P 

32 GO 
33 

34 EXA 



EPZ 
EPZ 
EPZ 
BNE 
RTS 
JSR 



$898F ;L0N6UEUR ENREGISTREMENT (ZONE) 

$8C87 ; TABLE IOB (SUIVI DE TABLE CARACTERISTIQUES) 

$8C93 ;ORDRE POUR RWTS 

$8fl87 ; BUFFER ENTREE/SORTIE POUR DONNEES 

$8C9C ;DPL/DSL = DERNIER SECTEUR PHYSIQUE LU 

$8C9D 

$8BB6 ;TRANSFERT VARIABLES -> BUFFER 
$8BF3 ;TRflNSFERT BUFFER -> VARIABLES 
$1C ;ADRESSE CLE LIEE A L' ENREGISTREMENT 
; LONGUEUR DE LA CLE 
POSITION DflNS LE SECTEUR PHYSIQUE 
;SECTEUR PHYSIQUE DE L' ADRESSE LOGIQUE 
;SECTEUR LOGIQUE (VARIABLE DE TRflVAIL) 
;PISTE PHYSIQUE/LOGIQUE (VARIABLE DE TRflVAIL) 



$9 
$6 
$7 
$8 
$18 
EXAO 



$B1 



;FIN INSTRUCTION I 

; ROUTINE APPLESOFT CHRGET 
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35 


JMP SO 




95 


ADC LE 




36 EXfiO 


CMP I'M' 


INSTRUCTION WRITE 


% 


DEX 




37 


BNE EXfll 




97 


BNE BO 




38 


JMP DEB 




98 


TAX 




39 EXA1 


CMP #' R' 


INSTRUCTION READ 


99 S4 


JSR TRA1 


:TRANSFERT : CONTENU DES VARIABLES -> 


40 


fun a 

BNE EXA2 




100 


JMP S6 


DUrrtlt 


41 


JMP PROR 




101 S3 


JSR S3B 




42 EXR2 


CMP #'M' 


; INSTRUCTION MODIFICATION 


102 


LDA #1 




43 


BNE EXA3 




103 


STA COM 




44 


JMP PROM 




104 


JSR RH 




45 EXR3 


CMP #'A' 


INSTRUCTION ANNULflTION 


105 


JMP BOO 




46 


BNE EXfi 




106 S3B 


LDA PPL 


;INDIQUE PARflMETRES PISTE/SECTEUR ET 


47 


JWP PROfl 




107 S3BB STA IOB+4 ;ADRESSE DU BUFFER DANS TABLE I OB 


48 DEB 


JSR LOO 




luo 


cta r\rn 




49 


JMP DEBF 




109 


LDh Z2 




50 LOO 


LDfl #0 


;CHAR6E PARflMETRES DISQUETTE 


110 


Si R IOB+5 




SI 


STA IOB+4 


; (PISTE 0/SECTEUR 0) EN $8987 


lit 
111 


CTD. TW1 

oi h UoL 




52 


STfl IOB+5 




LDfl #$87 




53 


LDfl #$87 




113 


OTA TflDi.fl 

STfl IUB+6 




54 


STfl I0B+B 




1.4 


i rvA lift nn 

LDfl #$8A 




55 


LDfl #$89 




11j 


STA IOB+9 




56 


STfl IOB+9 




116 


RTS 




57 


LDfl #1 




117 S6 


JSR S3B 




58 


STfl COM 




118 


LDfl #2 


;ECRITURE SECTEUR PHYSIQUE SUR DISQUETTE 


59 


JSR RW 




119 


STfl COM 




60 


OTP 

RTS 




120 


JSR RW 




61 DEBF 


LDfl PJU 




121 


RTS 




62 


CMP PPL 




122 S21 


INC NZU 




63 


BEQ SO 




123 


LDA NZU 




64 


JMP LIBO 


;IL Y fl DES ADRESSES LIBEREES 


124 


CMP NZS 




65 SO 


LDfl PSU 




123 


BEG S7 


;PLUS DE ZONES LIBRES DANS LE SECTEUR 


66 


CMP PSL 




126 


INC Zl 


:PROCHAINE ZONE LIBRE 


67 


BEQ SI 




III S70 


JSR C0A 


;FABRIQUE uE SECTEUR LOBIQUE 


68 


JMP LIBO 




i28 


LDA S 




69 SI 


LDfl PPL 


," 1ERE LIBRE = 1ERE JAMAIS UTILISEE 


129 


STA PSU 


;flflj DES PARflMETRES 


70 


CMP #$23 




i TA 


STA PSL 




71 


BNE S2 




1 T 1 C"7 < 

lol S71 


LDA #0 


;PAR SECURITE SAUVEGflRDE DES PARflMETRES 


72 


LDX #$FF 


;SIGNALE SATURATION DISQUETTE 


132 


STA IOB+4 ;L0RSQU' iL S0NT MODIFIES 


73 


STX $8C94 




in 


STA IOB+5 




74 


RTS 




134 


LDA #$87 




75 S2 


JSR S20 




1 7^ 

135 


STA IOB+8 




76 


JMP S21 




1 7C 
136 


LDA #$89 




77 S20 


LDY L 


;AFFECTE L'ADRESSE A LA CLE 


« T"7 

i37 


STA IOB+9 




78 


LDfl PPL 


;DANS LA TABLE D' INDEX 


1 TO 


LDfl #2 




79 


STfl (flCLE), Y 


139 


STA COM 




80 


INY 




140 


JSR RW 




81 


LDfl PSL 




141 


JMP EXA 




82 


STfl (flCLE),Y 


142 S7 


LDfl #0 




33 


STfl S 




143 


STA Zl 




84 


JSR DCS1 


;DECOUPE LE SECTEUR L0GIQUE 


144 


STA NZU 




85 


LDfl PPL 




145 


INC Z2 


;PASSASE flU SECTEUR SUIVANT 


86 


CMP DPL 




146 


LDA Z2 




87 


BNE S3 


;LECT. SECT. PHYS. S3 PAS DflNS BUFFER 


147 


CMP #$10 


;FIN DE PISTE ? 


88 


LDfl 12 




148 


BNE S70 




89 


CMP DSL 




149 


INC PJU 


;PASSA6£ A LA PISTE SUIVANTE 


90 


BNE S3 




150 


INC PPL 




91 BOO 


LDX Zl 


;CALCUL POSITION ZONE DANS SECTEUR 


151 


LDA #0 




92 


BEQ S4 




152 


STA Z2 




93 


LDfl #0 




153 


JMP S70 




94 BO 


CLC 




154 LIBO 


LDA PPL 
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155 CMP DZLP 

156 BNE LIB1 

157 lDA PSL 

158 CMP DZLS 
153 BNE LIB1 

ISO JSR S20 ; 1ERE ADRESSE LIBEREE EST AUSSI DERNIERE 

161 LDfl PJU ;1ERE ADRESSE LIBRE REDEVIENT 

162 STfl PPL ;Lfl PREMIERE JAMAIS UTILISEE 

163 LDA PSU 

164 STA PSL 

165 LDA #0 

166 STA DZLP 

167 STA DZLS 

168 JMP S71 

169 LIB1 LDA Pa ;MODIF CHAINAGE PISTES LIBEREES 

170 STfl S 

171 JSR DCS1 

172 LDA PPL 

173 CMP DPL 

174 BNE LIB2 

175 LDA Z2 

176 CMP DSL 

177 BNE LIB2 ;LIT SECT. CONTENANT LA ZONE LIBEREE 

178 LIO LDX Zl 

179 BEQ LI1 

180 JSR LLO 

181 JMP LI1 

182 LLO LDA #0 ;CfiLCUL POSITION ZONE DANS lE SECTEUR 

183 LIOO CLC 

184 ADC LE 

185 DEX 

186 BNE LICK) 

187 TAX 

188 RTS 

189 LI1 LDA BUF2, X ;2 PREMIERS OCTETS DE LA ZONE SONT 

190 STA $330 ;PISTE/SECTEUR L06IQUE DE L' ADRESSE 

191 INX ; LIBEREE SUIVANTE 

192 LDA BUF2,X 

193 STA $331 

194 JSR S20 

195 LDA *330 

196 STA PPL 

197 LDA $331 

198 STA PSL 

199 JMP S71 

200 LIB2 JSR S3B 

201 LDA #1 

202 STfl COM 

203 JSR RU 

204 JMP LIO 

205 PROR lDY L ;CHARSE L' ADRESSE DE L' ENREGISTREMENT 

206 LDA (ACLE),Y 

207 STA P 

208 I NY 

209 LDA (ACLE), Y 

210 STA S 

211 JSR DCS1 

212 LDfl P 

213 CMP DPL 

214 BNE fll 



215 


LDA Z2 




216 


CMP DSL 




217 


BNE Al 


;LIT SECT. CONTENANT L' ENREGISTREMENT 


218 A5 


LDX Zl 




219 


BEQ A2 




220 


JSR LLO 




221 A2 


JSR TRA2 


;TRANSFERT ENREGISTREMENT -> VARIABLES 


222 


JMP EXA 




223 Al 


LDA P 




224 


STA PPL 




225 


JSR S3B 




226 


LDA #1 




227 


STA COM 




228 


JSR RW 




229 


JMP A5 




230 PROM JSR BOO 


;MAJ/ECRITURE DU SECTEUR PHYSIQUE/ 


231 


JMP EXA 


LOGIQUE 


232 PROA JSR LOO 


; LECTURE PARAMETRES 


233 


LDfl DZLP 




234 


BNE Tl 




235 


LDfl DZLS 




236 


BNE Tl 




237 


LDfl P 


;IL N'Y A PflS D'ADRESSES LIBEREES AUTRES 


238 


STfl PPL 


;QUE CELLE QUI VIENT DE L'ETRE 


239 


STA DZLP 




240 


LDA S 




241 


STA PSL 




242 


STA DZLS 




243 


JMP S71 




244 Tl 


LDY S 


;SflUVESARDE SECTEUR L06IQUE LIBERE 


245 


LDA DZLS 




246 


STA S 




247 


JSR DCS1 




248 


STY S 




249 


LDA DZLP 




250 


CMP DPL 




251 


BNE T2 




252 


LDA Z2 




253 


CMP DSL 




254 


BNE T2 


;LIT SECT. CONTENANT DERNIERE ADR. LIB. 


255 T5 


LDX Zl 




256 


BEQ T3 




257 


JSR LLO 




258 T3 


LDA P 


;CHAINAGE SUR ADR. JUSTE LIBEREE 


259 


STA BUF2,X 


260 


INX 




261 


LDfl S 




262 


STA BUF2, X 


263 


JMP T4 




264 T2 


LDA DZLP 




265 


JSR S3BB 




266 


LDA #1 




267 


STfl COM 




268 


JSR RW 




269 


JMP T5 




270 T4 


LDA DZLP 


;ECRITURE DU SECTEUR MIS A JOUR 


271 


JSR S3BB 




272 


LDA #2 




273 


STA COM 




274 


JSR RU 





Pom's n° 9 



MICRO-PERIPH 

ouvre les portes de votre ftqpokz II 



Ouvert du rrsardi au samedi : 10 h - 12 h et 14 h - 18 h 
62, rue Ducouedic - 75014 PARIS (Tel. : 321.53.16) 



NOUVEAU 

RAMEX 128 K AVEC V-C EXPAND VERSION 80-2 (5 800 F T.T.C.) 
Si vous souhaitez uliliser votre VISICALC avec : 

• 136 K de memoire • chargement d'un tableau complet en 20 secondes 

• 80 colonnes sur I'ecran (logiclel compatible avec 4 differentes cartes 
80 colonnes) 

• Largeur de colonnes variable individuellement 

• Curseur programmable 

• Beaucoup d'autres ameliorations tres nombreuses 

(Ce logiciel qui est egalement compatible avec les cartes Saturn est dispo- 
nible separement (1 570 F T.T.C). La carte RAMEX 128 K est disponible 
aussi separement pour 4 600 F T.T.C, y compris le logiciel SOLIDOS.) 



NOUVEAU 

WILDCARD (1 400 F T.T.C) 

Cette carte equipee d'un bouton poussoir vous permet d'arreter ('execu- 
tion .d'un programme et de decharger I'etat de memoire sur un disque. Ce 
qui veut dire que vous pouvez reaiiser des copies de programmes qui ne 
sont plus protegees ou sauvegarder un programme de jeu a un niveau 
choisi. Grace a ces logiciels utilitaires, cette carte est de loin la plus puis- 
sante de ce genre. La carte est livree avec un manuel detaille en frangais. 



LES CARTES « PILOTS » 

U-TERM (1 680 F T.T.C.) 

Cette carte qui vous donne 80 colonnes sur I'ecran vous permet d'avoir 
deux jeux de caracteres a la fois qui sont co-residents dans la memoire 
vive et la memoire morte de la carte. Par exemple, les caracteres frangais 
majuscules et minuscules ainsi que les caracteres anglo-saxons. Elle a 
une tres grande gamme de compatibility : APPLESOFT, PASCAL, CP/M, 
APPLEWRITER II, etc. (Photo 2). 

U-Z80 (1 150 F T.T.C.) : son point fort est la Vitesse : 4 MHz. Compatible avec 
tous les logiciels CP/M ou de Z80 (Photo 1). 

U-RAM16 (890 F T.T.C.) : c'est une carte langage entierement compatible 
avec INTEGER BASIC. PASCAL, VISICALC, etc. Pourquoi payer plus Cher? 
U-S232 (1040 F T.T.C.) : une carte de serle, Vitesse variable entre 75 et 
19200 bauds. Cette carte contient son propre logiciel de handshake, ce qui 
permet de faire fonctionner une imprimante a sa vitesse optimale. Compa- 
tible avec le logiciel de communication VISITERM (Photo 9). 



DIVERS POUR L'APPLE II 

JOYSTICK TRACKBALL (660 F T.T.C) : une grande boule pour diriger vos 
navires spatiaux. 

CARTE HORLOGE (1 120 F T.T.C.) : au quartz avec pile et logiciel agenda. 
ROBOCOM BITSTICK (5 010 FT.T.C.) : un systeme tres sophistique de dessin 
graphique. 

D BASE II (6 800 F T.T.C.) : systeme de base de donnees relationnel (Z 80). 
JOYSTICK KRAFT (510 F T.T.C.) el JOYSTICK TG PRODUCTS (570 F T.T.C.) : 
fabriques aux Etats-Unis. ils sont d'excellentes qualite et flablllte. 
LECTEURS DE DISOUES : toutes les configurations possibles entre 143 K 
octets et 2 M octets, entierement compatibles avec I'Apple II. 
CCS carte synchrone (2 770 F T.T.C.) : pour dialoguer avec un IBM. 
DB MASTER (3 400 F T.T.C) : ires puissant Base de donnees. 
DATA FACTORY (3 172 F T.T.C.) : peut-etre la plus puissante des bases de 
donnees. 

ASCII EXPRESS PROFESSIONAL (1 930 F T.T.C.) : permet d'envoyer 
n'importe quel fichier en DOS par modem. 

MUMATH'MUSIMP ZBO (3 890 F T.T.C.) : tres puissant ogiciel mathemati- 
que. 

VENTILATEUR (750 F T.T.C.) : se branche a gauche de I'Apple II. Alimente 
I'Apple II. 



NOUVEAU 

ACCELERATOR II (5 600 F T.T.C.) 

Cette carte, fabriquee par Saturn Systems, est equipee d'un microproces- 
seur 6502 C qui tourne a 3,58 MHz et de 64 K de RAM. Cette augmentation 
de Vitesse de 358 % se traduit par une augmentation de rapidite d'exploita- 
tion de tous les programmes. La carte est dlrectement compatible avec 
tous les langages et programmes (Applesoft, Integer, Blnalre, Pascal, For- 
tran 77, Forth alnsi que tous les progiciels tels que Visicalc, DB Master, 
etc.). A la commande, specifier version Apple II ou Apple He. 

NOUVEAU 

PROGRAMMEUR D'EPROMS (1 740 F T.T.C). La carte se branche dans un 
slot de I'Apple II et permet de programmer dlrectement les EPROMS (2758, 
2716, 2732 et 2764). Un logiciel de gestion du programmeur se trouve sur la 
arte de memoire morte. Une carte existe egalement pour adapter les 
EPROMS program mes sur I'Apple II (630 F T.T.C). 

'EXTENSIONS DE MEMOIRE 

U-RAM 32K (1 450 F T.T.C), U-RAM 64K (2 590 F T.T.C), U-RAM 128K 
(4 250 F T.T.C.) (Photos 7 et 4). VERSA RAM emulateur de disque (690 F 
Lj.T.C). . 

TCARTES SCIENTIFIQUES 
U-A/D (5 880 F T.T.C.) : carte analogue digitale haute vitesse, 12 bits, 
16 gammes (Photo 6). 

Carte AID 8 bits (1 400 F T.T.C). 1 gamme (470 F T.T.C.) 
Carte D/A 8 bits (1 889 F T.T.C), 1 gamme (450 F T.T.C.) 
U-BCD (1 120 F T.T.C.) (Photo 8) 

U-DT (1 350 F T.T.C), 32 lignes entree-sortie avec temporlsateur et buffer 
U-TIM (1 120 F T.T.C.) temporisateur 

U-2 PORT (1960 F T.T.C.) : 2 portes RS 232 sur la meme carte extensible 
iusqu'a 8 portes(Photo 5) 

THE MILL 6809 (NC) : co-processeurs a haute vitesse et de multiprogram- 
mation 

Carte 68000 (NC) 16 bits + 32 bits Interne (Photo 3). 
Nous avons plusieurs autres cartes qui ne sont pas mentionnees ici; 
Lrenseignez-vous 

^ENSEMBLES D'EXPANSION VISICALC 

V-C 50K (3 560 F T.T.C.) : 1 carte 80 colonnes, V-C expand logiciel. U-RAM 
32 K 

V-C 82K (4580 F T.T.C.) : 1 carte 80 colonnes. V-C expand logiciel, U-RAM 
64 K 

V-C 145K (6 360 F T.T.C.) : 1'carte 80 colonnes, V-C expand logiciel, U-RAM 
128K 

V-C consolidator (400 F T.T.C.) : pour consolider plusieurs tableaux de VISI- 
CALC 

V-C super expand (700 F T.T.C.) : version 40 colonnes avec sauvegarde sur 
diskette en 20 secondes (le RAMEX 128K est necessaire) 
V-C super expand 80 (900 F T.T.C.) : version 80 colonnes compatible avec 
cartes omnivision 80, Videx et U-Term (le RAMEX 128K est necess 

^NOUVEAU 

EPSON FX 80 (6 700 F T.T.C.) - PROMOTION 
Vitesse : 160 c.p.s., 80, 40, 137, 68, 96 ou 48 caracteres par ligne, 
friction/traction, 9 formats graphiques, 9 jeux de caracteres, RAM avec 
logiciel ouvert pour generer votre propre jeu de caracteres, matrice de 11 
fols 9, espacement proportionnel, mode silencleux. 

Si vous ne voyez pas ce que vous cherchez ou si vous desirez de plus 
amples renseignements, telephonez a MICRO-PERIPH (321.41.80). Si vous 
ne pouvez vous deplacer, telephonez-nous pour connaitre le revendeur le 
plus proche de chez vous ou completez le bon de commande ci-dessous. 
kTOUTES NOS CARTES SONT GARANTIES 12 MOIS 



V. ' ' - 






BON DE COMMANDE 

A decouper et envoyer a : 

MICRO-PERIPH, 62 rue Ducouedic - 75014 Paris - Tel. : 321.53.16. 
Je desire recevoir rapidement, sous pli recommande : 



QUANTITE 



DESIGNATION 



TOTAL T.T.C. 



275 


LDA P 


;MAJ DES PARAMETRES 


298 


BNE D2 




27S 


STA DZLP 




299 


RTS 




277 


LDA S 




300 COA LDX #0 


;CONSTITUE LE SECTEUR LOGIQUE 


278 


STA DZLS 




301 


STX S 




279 


JMP S71 




302 


LDX #4 




280 DCS1 LDX #0 


;DEC0UPAG£ DU SECTEUR LOGIQUE 


303 CO 


ROR Z2 




to. 


CTY 71 




304 


ROR S 




Zoz 


CTV 71 
31 A Z2 




305 


DEX 




263 


LDX #4 




306 


BNE CO 




zoa DO 


ROL 




307 


LDX #4 






ROL Zl 


;Z1=4 BITS DE GAUCHE 


308 CI 


ROR Zl 




286 


DEX 




309 


ROR S 




IB "7 

287 


BNE DO 




310 


DEX 




288 


LDX #4 




311 


BNE CI 




289 


LDA S 




312 


RTS 




290 Dl 


ROR 




313 RW 


LDA #$8C 


;APP& A RWTS 


291 


ROR Z2 


;Z2=4 BITS DE DROITE 


314 


LDY #$87 


292 


DEX 




315 


JSR $3D9 




293 


BNE Dl 




316 


LDA #2 




294 


LDX #4 




317 


STA $8C97 




295 


CLC 




JiQ 


n i o 




296 D2 


ROR Z2 




319 


DCM "INT" 




297 


DEX 




320 






1 ; *******«♦*******♦«««***»*«««* 


35 


BEQ OK 


— 


2 ;* 




* Lisa 


36 NON 


LDA PTV 


;PASSE A LA VARIABLE SUIVANTE 


3 ;* TRANSFERT VARIABLES <-) BUFFER* 1.5 


37 


CLC 


; (7 OCTETS PLUS LOIN) 


4 ;* PR 


OGRAMME OBJET : VAR.OBJ * 


38 


ADC #7 




5 ;* 




* 


39 


STA PTV 




6 ;*♦*******«*»« 


HHtMHHHiiH 


40 


BCC BCLO 




7 ; 






41 


INC PTV+1 




8 


ORG $BB87 




42 


JMP BCLO 




9 


OBJ $800 




43 OK 


RTS 




10 NV 


EPZ $F9 


;NOMBRE DE VARIABLES MOINS 1 


44 






11 AS 


EPZ $FA 


;C0DE ASCII PREMIERE LETTRE 


45 : TRANSFERT VARIABLES -) BUFFER 


12 PTV 


EPZ $FD 


jCCSTIENT ftDRESSE DEBUT VARIABLE 


46 ;- 






13 AV 


EPZ $EE 


;C0NTIENT ADRESSE CONTENU DE LA VARIABLE 


47 TRA1 JSR BUVA 




14 LV 


EPZ $FB 


;L0N6UEUR DE LA VARIABLE 


48 TR4 


JSR BCLO 




15 NVCO 


EPZ $FF 


;N0MBRE DE VARIABLES TRAITEES MOINS 1 


49 


INY 




16 NVC 


EPZ $FC 


;C0DE 2EME LETTRE VARIABLE TRAITEE 


50 


LDA (PTV) , Y 


; LONGUEUR DE LA VARIABLE 


17 BUF2 


EQU $8A87 




51 


STA LV 


18 FRETOP EPZ $6F 


;FIN ZONE CHAINES DE CARACTERES 


52 


STA BUF2, X 


;STOCKEE AVANT LA VALEUR FlLE MEME 


19 BUVA 


LDY #0 




53 


BNE TR1 




20 


STY NVCO 




54 


INX 


; VARIABLE = CARACTERE NUL 


21 


LDY #$C1 


;$Cl=CHR$(A)+$80 


55 


JMP TR2 




22 


STY NVC 




56 TR1 


INX 




23 BUVAO 


LDA $69 


; INITIALISE A LOMEM 


57 


INY 




24 


STA PTV 




58 


LDA (PTV),Y 


; OCTET BAS ADRESSE DE LA VALEUR 


25 


LDA $6A 




59 


STA AV 




26 


STA PTV+1 




60 


INY 




27 


RTS 




61 


LDA (PTV),Y 


; OCTET HAUT ADRESSE DE LA VALEUR 


28 BCLO 


LDY «0 


; RECHERCHE LE NOM DE LA VARIABLE 


62 


STA AV+1 




29 


LDA AS 




63 


LDY #0 




30 


CMP (PTV),Y ;1ERE LETTRE = AS ? 


64 TR3 


LDA (AV),Y 


; TRANSFERT VALEUR -> BUFFER 


31 


BNE NON 




65 


STA BUF2,X 




32 


INY 




66 


INX 




33 


LDA (PTV), 


Y 


67 


INY 




34 


CMP NVC 


;2EME LETTRE = NVC ? 


68 


CPY LV 





;DERNIERE VARIABLE ? 
;PASSE A VARIABLE SUIVANTE 



69 BNE TR3 

70 TR2 LDA NVCO 

71 m> NV 

72 BEQ SORT1 

73 INC NVCO 

74 INC NVC 

75 JSR BUVAO 

76 JMP TR4 

77 S0RT1 RTS 

78 . 

79 ; TRANSFERT BIFFER -> VARIABLES 



81 TRA2 

82 BC4 
83 



87 
SB 
89 
90 
91 
92 
93 
94 

95 BC2 



; VARIABLE = CARACTERE NIL 

;MAJ DE FRETOP (DESCENDU DE LV OCTETS) 



JSR BUVA 

LDA 8UF2,X ; LONGUEUR DE LA VARIABLE 
STA LV 
INX 

CUP tO 
BEQ BC1 
LDA $6F 
SEC 
SBC LV 
STA $6F 
LDA $70 
SBC tO 
STA $70 
LDY tO 

LDA BUf2,X ; TRANSFERT VALEUR EN COMWENCANT A FRETOP 



96 


STA (FRETOP), Y 


97 


INX 




9a 


INY 




99 


CPY LV 




100 


BNE BC2 




101 BC1 


JSR BCLO 


;CH£RCHE ADRESSE DU NOM 


102 


INY 




103 


LDA LV 




104 


STA (PTV),Y 


; RANGE LA NOUVELLE LONGUEUR 


105 


BEQ BC3 




106 


INY 




107 


LDA $6F 


; RANGE NOUVELLE ADRESSE DE LA 


108 


STA (PTV),Y 


VALEUR 


109 


INY 




110 


LDA $70 




111 


STA (PTV),Y 




112 BC3 


LDA NVCO 




113 


CMP NV 


;DERNIERE VARIABLE ? 


114 


BEQ S0RT2 




115 


INC NVCO 


; PASSE A VARIABLE SUIVANTE 


116 


INC NVC 




117 


JSR BUVAO 




118 


JMP BC4 




119 S0RT2 RTS 




120 


DCM "INT" 




121 


END 





Programme RIA. OBJ 
Recapitulation 

*BCA0.8E69 

8CA0- A9 00 85 IF A5 06 85 18 
BCA8- A5 07 85 19 C5 IB DO 09 
8CB0- A5 1A 38 E5 06 A8 4C BB 
8CB8- 8C A4 08 A2 00 Bl 18 DD 
8CC0- 11 03 90 03 4C F9 8C A5 
8CC8- 19 C5 IB FO 07 E6 19 A5 
8CD0- 19 4C AC 8C 98 86 CE 38 
8CD8- E5 CE A8 04 08 FO 10 C8 
8CE0- C8 98 18 65 09 18 65 18 
8CE8- 85 1C A5 IB 85 ID 60 A5 
8CF0- 06 85 1C A6 IB E8 86 ID 
8CF8- 60 FO 03 4C 1A 8D E8 E4 
8D00- 09 FO 04 C8 4C BD 8C A9 
8D08- 01 85 IF C8 98 18 65 18 
8D10- 38 E5 09 85 1C A5 19 85 
8D18- ID 60 AO 00 A2 00 Bl 18 
8D20- DD 11 03 BO OF C8 C8 98 
8D28- 18 65 09 86 CE 38 E5 CE 
8D30- A8 4C 1C 8D FO OE 98 18 
8D38- 65 18 86 CE 38 E5 CE 85 
8D40- 1C 4C 15 8D E8 E4 09 DO 
BD48- 03 4C 07 8D C8 4C IE 8D 
8D50- A5 IB 85 19 A5 06 85 18 
8D58- A5 1A 38 E5 06 A8 C4 08 
8D60- FO 03 4C 9E 8D A5 06 85 



8D68- D6 A6 19 E8 86 D7 20 74 
8D70- 8D 4C 85 8D A2 00 Bl 18 
8D78- 9D 11 03 E8 E4 CF FO 04 
8D80- C8 4C 76 BD 60 A2 00 AO 
8D88- 00 BD 11 03 91 D6 E8 E4 
8D90- CF FO 04 C8 4C 89 8D A5 
8D98- 08 85 CE 4C B4 8D 84 CE 
8DA0- 20 74 8D C8 A2 00 BD 11 
8DA8- 03 91 18 E8 E4 CF FO 04 
8DB0- C8 4C A6 8D A4 CE A5 19 
8DB8- C5 ID DO OA A5 06 18 65 
8DC0- CE C5 1C DO 01 60 CO 00 
8DC8- FO 09 A5 CE 38 E5 CF A8 
8DD0- 4C 9E 8D A4 08 C6 19 4C 
8DD8- 65 8D A5 06 85 18 A5 ID 
8DE0- 85 19 A5 1C 38 E5 06 A8 
8DE8- C4 08 FO 03 4C 2B 8E A5 
8DF0- 06 85 D6 A6 19 E8 86 D7 
8DF8- A2 00 84CEA0 00 B1D6 
8E00- 9D 11 03 E8 E4 CF FO 04 
8E08- C8 4C FE 8D A2 00 A4 CE 
8E10- BD 11 03 91 18 E8 E4 CF 
8E18- FO 04 C8 4C 10 8E A5 D6 
8E20- 85 18 A5 D7 85 19 AO 00 
8E28- 4C 55 8E 84 CE 98 18 65 
8E30- CF A8 A2 00 Bl 18 9D 11 
8E38- 03 E8 E4 CF FO 04 C8 4C 
8E40- 34 8E A4 CE A2 00 BD 11 
8E48- 03 91 18 E8 E4 CF FO 04 
8E50- C8 4C 46 8E C8 A5 19 C5 



8E58- IB FO 03 4C E8 8D 98 18 
8E60- 65 06 C5 1A FO 03 4C E8 
8E68- 8D 60 



Programme WRMA. OBJ 
Recapitulation 

*8E70.9120 

8E70- DO 07 60 20 Bl 00 4C 70 
8E78- 8E C9 57 DO 03 4C 95 8E 
8E80- C9 52 DO 03 4C IE 90 C9 
8E88- 4D DO 03 4C 5A 90 C9 41 
8E90- DO El 4C 60 90 20 9B 8E 
8E98- 4C B6 8E A9 00 8D 8B 8C 
8EA0- 8D 8C 8C A9 87 8D 8F 8C 
8EA8- A9 89 8D 90 8C A9 01 8D 
8EB0- 93 8C 20 14 91 60 AD 87 
8EB8- 89 CD 89 89 FO 03 4C 9B 
8EC0- 8F AD 88 89 CD 8A 89 FO 
8EC8- 03 4C 9B 8F AD 89 89 C9 
8ED0- 23 DO 06 A2 FF 8E 94 8C 
8ED8- 6020DF8E4C4A8FA4 
8EE0- 09 AD 89 89 91 1C C8 AD 
8EE8- 8A 89 91 1C 85 08 20 DC 
8EF0- 90 AD 89 89 CD 9C BC DO 
8EF8- IB A5 07 CD 9D 8C DO 14 
8F00- A6 06 FO OA A9 00 18 6D 
BF08- 8F 89 CA DO F9 AA 20 B6 



Pom's n° 9 



8F10- 8B4C3E8F 20 22 8F09 
8F18- 01 8D 93 8C 20 14 91 4C 
8F20- 00 8F flD 89 89 8D 8B 8C 
8F28- 8D 9C 8C 05 07 8D 8C 8C 
8F30- 8D 9D 8C 09 87 8D 8F 8C 
8F38- ft9 8fl 8D 90 8C 60 20 22 
8F40- BF 09 02 8D 93 8C 20 14 
BF48- 91 60 EE 8C 89 fiD 8C 89 
8F50- CD 8B 89 F0 2fl E6 06 20 
8F58- FD 90 05 08 8D 88 89 8D 
8F60- 80 89 09 00 8D 8B 8C 8D 
8F68- 8C 8C 09 87 8D 8F 8C 09 
8F70- 89 8D 90 8C 09 02 8D 93 
8F78- 8C 20 14 91 4C 73 8E 09 
8F80- 00 85 06 3D 8C 89 E6 07 
8F88- 05 07 C9 10 DO C9 EE 87 
8F90- 89 EE 89 89 09 00 85 07 
8F98- 4C 57 8F AD 89 89 CD 8D 
8F00- 89 DO 22 AD 80 89 CD 8E 
8FA8- 89 DO 1A 20 DF 8E AD 87 
8FB0- 89 8D 89 89 AD 88 89 8D 
8FBB- 8A 89 A9 00 8D 8D 89 8D 
8FC0- BE 89 4C 62 8F AD 80 89 
8FC8- 85 08 20 DC 90 AD 89 8S 
8FD0- CD 9C 8C DO 3B 05 07 CD 
8FD8- 9D 8C DO 34 06 06 FO 11 
8FE0- 20 E6 8F 4C Fl 8F 09 00 
8FE8- 18 6D BF 89 CA DO F9 AO 
8FF0- 60 BD 87 80 8D 30 03 E8 
8FF8- BD 87 80 BD 31 03 20 DF 
9000- BE AD 30 03 8D 89 89 AD 
9008- 31 03 8D 80 89 4C 62 8F 



9010- 20 22 BF 09 01 BD 93 8C 
9018- 20 14 91 4C DC BF 04 09 
9020- Bl 1C 85 18 C8 Bl 1C 85 
9028- 08 20 DC 90 05 18 CD 9C 
9030- 8C DO 14 05 07 CD 9D 8C 
9038- DO OD 06 06 FO 03 20 E6 
9040- 8F 20 F3 8B 4C 73 8E 05 
9048- 18 8D 89 89 20 22 8F 09 
9050- 01 8D 93 8C 20 14 91 4C 
9058- 30 90 20 00 8F 4C 73 8E 
9060- 20 9B BE OD 8D 89 DO 18 
9068- AD 8E 89 DO 13 A5 18 8D 
9070- 89 89 8D 8D 89 A5 08 8D 
9078- Sft SS SD S£ 83 4C £2 8F 
9080- A4 08 AD BE 89 85 08 20 
9088- DC 90 84 08' AD 8D 89 CD 
9090- 9C 8C DO 1C A5 07 CD 9D 
9098- 8C DO 15 A6 06 FO 03 20 
90A0- E6 BF A5 18 9D 87 8A E8 
9008- A5 08 9D 87 BA 4C CI 90 
90BO- AD 8D 89 20 25 BF A9 01 
90B8- 8D 93 8C 20 14 91 4C 9B 
90CO- 90 AD 8D 89 20 25 BF 09 
90C8- 02 8D 93 8C 20 14 91 05 
90D0- 18 8D 8D 89 05 08 BD 8E 
90D8- 89 4C 62 BF 02 00 86 06 
90E0- B6 07 A2 04 2A 26 06 CA 
90EB- DO FA A2 04 A5 08 60 66 
90FO- 07 CO DO FO 02 04 18 66 
90F8- 07 CO DO FB 60 02 00 86 
9100- 08 02 04 66 07 66 08 CO 
9108- DO F9 02 04 66 06 66 08 



9110- CO DO F9 60 09 8C 00 87 
9118- 20 D9 03 09 02 8D 97 8C 
9120- 60 

Programme VAR. OBJ 
Recapitulation 

♦8B87.8C3E 

BB87- 00 

8B88- 00 84 FF AO CI 84 FC 05 
8B90- 69 85 FD A5 6A 85 FE 60 
8B98- AO 00 A5 FA Dl FD DO 07 
8BA0- C8 Bl FD C5 FC FO OE 05 
8BA8- FD 18 69 07 85 FD 90 E8 
8BB0- E6 FE 4C 98 BB 60 20 87 
8BB8- 8B 20 98 BB C8 Bl FD 85 
8BC0- FB 9D 87 80 DO 04 E8 4C 
8BC8- E2 8B E8 C8 Bl FD 85 EE 
8BD0- Cfl Bl FD 85 EF 00 00 Bl 
8BD8- EE 9D 87 80 EB Cfl C4 FB 
8BE0- DO F5 05 FF C5 F9 FO 00 
8BEB- E6 FF E6 FC 20 8F BB 4C 
8BF 0- B9 8B 60 20 87 8B BD 87 
8BF8- 80 85 FB Efl C9 00 FO 10 
8C00- 05 6F 38 E5 FB 85 6F 05 
8C08- 70 E9 00 85 70 00 00 BD 
8C10- 87 80 91 6F E8 C8 C4 FB 
8C18- DO F5 20 98 BB C8 05 FB 
8C20- 91 FD FO 00 C8 05 6F 91 
8C28- FD C8 05 70 91 FD 05 FF 
8C30- C5 F9 FO 00 E6 FF E6 FC 
8C38- 20 8F 8B 4C F6 BB 60 



Message aux createurs de logiciel 

Nous allons bientot commercialiser des programmes en plus de la revue Pom's, la remuneration des auteurs 
s effectuant selon le principe des droits d'auteur. 

Bien entendu, les programmes destines a ce mode de distribution doivent etre des produits finis, autant par la 
qualite des programmes que par celle de la documentation et par l'environnement visuel et sonore. ' 

Nous sommes prets a analyser vos propositions et a vous aider a transformer des idees en produits logiciels. 
Envoyez-nous vos contributions ; nous vous aiderons a diffuser ces programmes. 



Pseudo-opcodes 

de divers assembleurs 



Olivier herz 



A la demande de nombreux lecteurs nous publions un petit tableau qui indique brievement le role des principaux pseudo- 
opcodes (directives) de divers assembleurs pour l'Apple , ce qui permettra de traduire d'un assembleur a l'autre les 
programmes que nous publions. Nous avons mis dans notre tableau: 6 Character Label Assembleur de Microproducts (le 
premier assembleur sorti sur Apple), Lisa 2.5 de On Line Systems (qui est une amelioration de Lisa 1.5) Apple Tool Kit 
Assembleur de Apple Computer et ALDS (Assembly Language Development System: assembleur 6502. 8080 et Z80 qui 
fonchonne sous CP/M) de Microsoft. Nous n'avons malheureusement pas mis le Big Mac de Call Apple dont nous 
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n'avons pas le mode d'emploi, mais il ressemble beaucoup au Tool Kit. I! va sans dire que ce qui suit n'est pas exhaustif, 
ni au point de vue des directives (surtout pour ALDS!!), ni au point de vue des assembleurs et que ce n'est en aucun cas 
un mode d'emploi resume de ces assembleurs. 



6CHR 


LISA 


T.KIT 


ALDS 


Syntaxe et emploi 


INSTRUCTIONS GENERALES 


ORG 


ORG 


ORG 


ORG 


ORG [expl fixe 1'ORiGine du programme objet 


OBJ 


OBJ 


OBJ 




OBJ [exp] fixe Forigine du code OBJet genere 




PHS 




PHASE 


PHS [exp] change provisoirement I'ORG 




DPH 




.DEPHASE 


DPH termine une section de code suivant un PHS 




END 




END 


END indique la fin du programme source 


EQU 


EQU 


EQU 


EQU 


[label] EQU [exp] initialise la valeur d'un label 


EPZ 






idem, mais [exp] entre $00 et $FF (Page Zero) 




LET 






[label] LET [exp] permet de reassigner un label 


INSTRUCTIONS POUR L' ASSEMBLAGE 


CHN 


1CL 




INCLUDE 


ICL [nomfic] chaine un fichier; labels conserves 


CAL 








CAL [labell,..] passe des labels a un fichier "linke" 


ENT 








ENT [labell,..] recupere les labels passes par CAL 




DCM 






DCM [cmd DOS] execute la commande a 1'assemblage 




PAU 






PAU cree une erreur forcee a 1'assemblage 




PAG 






PAG envoie CTRL-L a 1'imprimante 








EJECT 


EJECT [exp] fixe la taille des pages pour imprimer 




TTL 






TTL "string" envoie CTRL-L et imprime le titre 






SBTL 


TITLE 


TITLE [titre] met un titre en haut de chaque page 






SKP 




SKP [exp] saute exp lignes au listing 






REP 




REP [exp] repete exp chrs. au listing (defaut:*) 






CHR 




CHR [caractere] change le chr. par defaut de REP 




LST 






LST cree un listing a 1'assemblage 




NLS 






NLS ne cree pas de listing a 1'assemblage 






LST 




LST ON ou OFF cree un listing ou non a 1'assemblage 






DSECT 


DSECT 


DSECT reserve de la place sans l'afficher 






DEND 


DEND 


DEND annule le DSECT 




NOG 






NOG: on n'affiche que 3 octets de code pour HEX, ASC... 




GEN 






GEN annule NOG 


INSTRUCTIONS DE STOCKAGE DE DONNEES 




BYT 


DFB 


DFB 


DFB [exp] stocke l'octet bas de l'expression 




HBY 






HBY [exp] stocke l'octet haut de l'expression 




DBY 


DDB 


DDB 


DDB [exp] stocke une expression octet haut puis bas 


EQD 


ADR 


DW 




EQD [exp] stocke une adresse (poids faible d'abord) 


DFD 


HEX 






HEX [octets] stocke des donnees hexadecimales 




.DA 






.DA [exp] : hybride de ADR, BYT et HBY 


DFD 


ASC 


ASC 


ASC 


ASC "string" stocke une chaine ASCII (bit haut = 1) 




ASC 




ASC 


ASC 'string' stocke une chaine ASCII (bit haut = 0) 




MSB 




MSB ON ou OFF dit si le bit haut = 1 ou avec ASC 




STR 






cf ASC, mais longueur stockee avant la chaine 




DCI 




DCI 


cf ASC, mais bit haut du dernier octet inverse 




DCI 




DCI "string": bits hauts = sauf le dernier 




INV 






INV "string" ou 'string': caracteres ecran INVERSE 




BLK 






BLK "string" ou 'string': caracteres ecran FLASH 




DFS 


DS 


DS 


DS [exp] permet de reserver une place de exp octets 


ASSEMBLAGE CONDITIONNEL 




.IF 


DO 


DO 


DO [exp] n'assemble que si l'expression est vraie 




.EL 


ELSE 


ELSE 


ELSE assemble quand l'expression du DO est fausse 




.FI 


FIN 


FIN 


FIN indique la fin de 1'assemblage conditionnel 


AUTRES DIRECTIVES 




BGF. 




BGE 


BGE [exp] Branch if Greater or Equal = BCS 




BLT 




BLT 


BLT [exp] Branch if Less Than = BCC 




BTR 






BTR [exp] Branch if TRue = BNE 




BFL 






BFL [exp] Branch if FaLse = BEQ 




XOR 






EOR [exp] exclusive Or = EOR 




SWEET16 






LISA assemble aussi les codes de 1' interpreter SWEET- 16 



Pom's n° 9 



sflns 

miCROT€L€H 

UDTRE rniCRD (TEST DU'Un □RDinPTEUR 



Communication interface 

2. place d'Aligre - 75012 Paris 
Tel. 341.85.85 - Telex 214254 INTFACE 
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La PROM P5A desassemblee 

Thierry Le Tallec 



Pour tous ceux qui desirent en savoir un peu plus sur le 
fonctionnement du DOS 3.3 et sur ce qui se passe dans la 
carte controleur de leur lecteur de disquette, la liste don- 
nee ci-apres devrait s'averer utile. II s'agit en effet de la 



routine contenue dans la PROM P5A du controleur. desas- 
semblee en termes (comprenez "etiquettes") comprehensi- 
bles et commentee par l'auteur de ce decryptage. Nous la 
livrons en l'etat a vos talents d'analystes. 



Big Mag 



1 tut I KJMUHtmuu mL Ji 

2 * PROM P5A * 

3 * desassemblee t 

4 ♦ par * 

5 * T. Le Tallec « 

7 

8 * 05/08/82 
9 

10 * Prefers routine a etre executee lore du Soot. 

11 * Elle est appeiee par PR£6 ou C&OOG ou 6 ctrl-P. 



12 






13 


ORG 


$C600 


14 






15BUFADR 


EQU 


$26 


16 SLOTNUM 


EQU 


$2B 


17 TEMP 


EQU 


$3C 


18 SECTOR 


EQU 


*3D 


19 TRACKRD 


EQU 


$40 


20 TRACK 


EQU 




21 STACK 


EQU 


$100 


22 PHASEOFF 


EQU 


$C080 


23PHASEON 


EQU 


$C081 


24 M0T0RON 


EQU 


$C089 


25 DRVOEN 


EQU 


$C08A 


26 DRVRD 


EQU 


$C08C 


27 DRVRWI 


EQU 


$C08£ 


28 WAIT 


EQU 


$FCfl8 


29 I0RTS 


EQU 


$FF58 


30 







31 * Construction d'une taale en $356-$3FF pour 

32 * convertir les nibbles en mots de six bits ($00-$3F). 



33 




34 . LDX 


£$20 


35 LDY 


f$00 


36 LDX 


£$03 


37 BUILDTBL STX 


TEHP 


3B TXA 




39 ASL 




40 BIT 


TEMP 


41 BEQ 


BLDTABL2 


42 ORA 


TEMP 


43 EOR 


f$FF 


44 AND 


£$7E 


45 BLDTABL1 BCS 


BLDTABL2 


46 LSR 





47 BNE BLDTABL1 

48 TYA 

49 STA $0356, X 

50 INY 

51 BLDTABL2 INX 

52 BPL BUILDTBL 
53 

54 » Calcul du nuaero du slot oar analyse de la pile 
55 

JSR I0RTS 
TSX 

LDA STACK, X 
ASL 
ASL 
ASL 
ASL 

STA SL0TNUM 



56 
57 
58 
59 
60 
61 
62 
63 

64 TAX 
65 

66 * Initialisation du aateriel. 
67 



LDA DRVRDM,X ;raz du latch de lecture. 

LDA DRVRD, X ; passe en Mode "lecture". 

LDA DRVOEN.X ;choisit le drive 1. ' 

LDA M0T0R0N.X ;«et le noteur en route. 



68 
69 
70 
71 
72 

73 « Raaene le bras en piste zero par 80 narches-arriere. 
74 
75 

76 TRAC 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 

88 * Prepare a lire le secteur de la piste en $800. 
89 

90 STA BUFADR 

91 STA SECTOR 

92 STA TRACK 



LDY 


£$50 


LDA 


PHASE0FF,X 


TYA 




AND 


£$03 


ASL 




0RA 


SL0TNUM 


TAX 




LDA 


PHASEON.X 


LDA 


£$56 


JSR 


WAIT 


DEY 




BPL 


TRACK0 
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93 LDA £$08 

94 STA BUFADR+1 
95 

% * Cette routine lit le secteur indique en $3D de la piste 

97 » indiquee en $41, a l'adresse rangee en $26-$27. 

98 

99 READTRCK CLC 
100 

101 * Attend D5 Aft 96 si carry = , 

102 * attena D5 AA AD si carry = 1 . 



152 DATABL2 LDY DRVRD, X 

153 BPL DATABL2 

154 EDR $02D6,Y 

155 LDY TEMP 

156 DEY 

157 STA $0300, Y 

158 BNE DATABlI 
159 

160 * Lecture des 256 nibbles suivants en <*26-$27) 
161 



103 








162 IC6BA 


STY TEMP 


104 RDTRACK1 PHP 






163 IC6BC 


LDY DRVRD, X 


1 AC^ 1 I/\ T TT\AT/> 

105 WAITDATC 


LDA 


nni ir\r\ \J 

DRVRD, X 




164 


BPL 1C6BC 


106 


BPL 


JAITDATA 




165 


EOR $0206, Y 


107 HAITI 


EOR 


£$D5 


;attend D5 AA % 


166 


lDY TEMP 


108 


BNE 


rtAITDATA 




167 


STA (BUFADRI.Y 


1 AO l IA T T1 

109 WAIT2 


1 I\A 

LDA 


nniion V 

UKvHu, X 




168 


INY 


110 


BPL 


WAIT2 




169 


BNE IC6BA 


111 


DIP 


£$AA 




170 




112 


BNE 


0AIT1 




171 * Lecture et verification du checksum 


113 


NOP 






172 




114 WAIT3 


LDA 


DRVRD, X 




173 IC6CB 


LDY DRVRD, X 


115 


BPL 


WAIT3 




174 


BPL IC6CB 


116 


CMP 


£$96 




175 


EOR $0206, Y 


117 


BEQ 


ADRBLOCK 




176 IC6D3 


BNE READTRCK 


118 


PLP 






177 




119 


BCC 


READTRCK 




178 * Decodage des nibbles ("cenibbiiize") 


120 


EOR 


£$AD 


;si trouve D5 AA AD et souhaite, 


179 




121 


BEQ 


DATABLOC 


;alors saute en $C6A6. 


180 


LDY £$00 


122 


BNE 


READTRCK 




181 IC6D7 


LDX £$56 


123 








182 IC6DS 


DEX 


124 * Analyse du champ "adresse" 


183 


BKI IC6D7 


125 








184 


uDA <BUFADR),Y 


126 ADRBLOCK LDY 


£$03 




185 


LSR $0300, X 
ROL 


127 ADRBLOCl 


STA 


TRACK RD 




186 


128 ADRBL0C2 LDA 


DRVRD, X 


;attend le premier nibble 


187 


LSR $0300, X 


129 


BPL 


ADRBL0C2 




188 


ROL 


130 


ROL 






189 


STA (BUFADR) ,Y 


131 


STA 


TEMP 




190 


INY 


132 ADRBL0C3 LDA 


DRVRD, X 


;attenc le second nibble 


191 


BNE IC6D9 


133 


BPL 


ADRBL0C3 




192 




134 


AND 


TEMP 


;reconstitue 1' octet 


193 * Incremente le numero du secteur a lire et l'adresse 


135 


DEY 




; recommence 3 fois 


194 * du buffer ou ecrire (poids forts). 


136 


BNE 


ADRBLOCl 


; (volume, piste, secteur) 


195 




137 


PLP 






196 


INC BUFADR+1 


138 


CMP 


SECTOR 


;c'est le bon secteur ? 


197 


INC SECTOR 


139 


BNE 


READTRCK 


;non => recommence 


198 




140 


LDA 


TRACKRD 


;recupere le numero de piste 


199 * Lit un autre secteur s'il y a lieu (cas de "BASICS"! 


141 


CMP 


TRACK 


;c'est la bonne piste ? 


200 * sinon, saute directement en $801 pour contmuer ;e boot 


142 


BNE 


READTRCK 


;non =) recommence 


201 




143 








202 


LDA SECTOR 


144 « Lecture du chamo "donnees" 


203 


CMP $0800 


145 








204 


LDX SLOTNUK 


146 


BCS 


RDTRACK1 


;va attendre D5 AA AD 


205 


BCC IC6D3 


147 








206 


JMP $801 


148 * Lecture des 85 premiers nibbles en $300-$355 


207 




149 








208 * NOTE: Le moteur tourne touiours, X = slot x 16 , 


150 DATABLQC LDY 


£86 




209 * 


$8FE = prochaine page a ecrire 


151 DATABLI 


STY 


TEMP 




210 * 


$SFF = noabre de secteurs a lire 
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Branchez-vous 



sur 



le monde 



fou 



fou 



fou 



de Ciel Bleu. 



Des logiciels de jeu, fous, fous, fous. 

Des logiciels de formation passionnants. 

48 logiciels toujours en francais. 

Des logiciels aux couleurs fantastiques grace a la 

haute definition. 

Des logiciels vendus dans les magasins FNAC et 
dans les Boutiques Informatiques. 



■ 
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ATTAQUE ROUGE,, 
.FORCES REBELLES 




I 



GENETK DRIFT 

s 




Cartels et Cutthroats. 

Vous etes le big boss d'une 

grande societe. 

Vous decidez des alliances a 

conclure ou de la maniere de 

dominer le marche, des nouvelles 

societes d monter. 

Etes-vous capable de prendre les 

bonnes decisions ? Et de devenir 

un grand manager? 



Attaque Rouge et Forces 
Rebelles. 

L'Armee Rouge attaque et va 
devaster notre pays. 
Saurez-vous defendre trois villes- 
cle qui ne doivent en aucun cas 
tomber aux mains de I'ennemi ? 
Des forces rebelles ont envahi 
une ville strategique. Vous com- 
mandez des forces qui doivent 
reprendre la ville : saurez-vous 
ecraser les rebelles? 



Controleur Aerien. 

Vous etes devenu controleur 
aerien. 

Vous devez guider 26 avions d 
helice ou d reaction. Saurez-vous 
les faire decoller, changer d 'alti- 
tude ou de direction, atterrir? 
Aurez-vous assez d'adresse pour 
eviter le crash toujours possible? 



Genetic Drift. 

Vous etes le maTtre du monde, 
par des manipulations geneti- 
ques vous pouvez creer des 
races, faire muter des especes. 
Saurez-vous toujours eviter que 
les nouvelles races et les nouvel- 
les especes echappent d votre 
controle ? 




64 



Les TIGRES Dans 
LR HEIGE 




L'nLLIMKE 
ROHIPUE 
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Les Tigres dans la Neige. 

(La Bataille des Ardennes) 
C'est la derniere attaque deses- 
peree des forces d'Hitler. 
Dans les Ardennes glacees et 
enneigees, les Panzers Tigres fon- 
cent et surprennent les forces 
americaines. 

Saurez-vous arreter les Panzers 
Nazis? 



L'Alliance Rompue. 

La planete Osgort possede des 
forets sauvages, des lacs bleus 
transparents et une atmosphere 
vivifiante. 

Plusieurs tribus y vivent, les 
Centau res, les Elfes, les Hozgits, 
les Zorgs qui ressemblent aux 
humains. 

Tous ces gens vivent en paix. 
Etes-vous capable de rompre 
I'alliance? 



Les campagnes 
Napoleoniennes. 

Vous allez recreer les grandes 
batailles de la fin de PEmpire de 
Napoleon l er . 

Pourrez-vous inverser le resultat 
de I'histoire, faire apparattre 
Blucher, battre Wellington. 
Et faire de Waterloo une grande 
victoire ? 



Operation Apocalypse. 

C'est la Deuxieme Guerre Mon- 
diale. Vous avez le choix entre 
4 scenarios d'operations. 
Vous devez dresser des plans de 
bataille, tenir compte de vos 
adversaires, du terrain, des 
drconstances. 
Serez-vous un grand chef 
militaire? 




Le Basic Explique. 

Enfin un cours qui vous enseigne 
vraiment le langage de Pordina- 
teur Apple. 

Apprenez le fonctionnement de 
I'ordinateur et comment faire vos 
propres programmes. 



Savoir 
ecrire 




t oe^ 
Fnangais 




Savoir Ecrire. 

Les jeunes obtiendront des resul- 
tats rapides a Paide de dessins et 
d'effets sonores distrayants. 
Savoir Ecrire est un excellent 
programme d'introduction a 
I'ordinateur. 



Savoir Compter. 

Un excellent programme d'intro- 
duction pour les jeunes. En meme 
temps defi et source de plaisir. 
Ce programme est divise en 
huit modules pour apprendre a 
compter, a additionner et d 
soustraire. 



Bon pour le depliant gratuit de nos 48 logiciels. 



Marque de mon ordinateur 



= PEL bltW 

Editions Ciel Bleu 
Societe Sofel Informatique 
20, rue Bapst, 92600 Asnieres. Tel. : (1) 790.23.60 
Importateur exdusif des produits Computerre 
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Micro-informations 



Les disquettes 

Si vous envisagez l'achat d'un lecteur 
de disquettes, pourquoi ne pas vous 
laisser tenter par les nouvelles unites 
dites "half-size" ou "slim-line" ? To- 
talement compatibles avec l'Apple, 
elles presentent l'avantage de n'occu- 
per qu'un tiers environ de la hauteur 
d'une unite normale. PENTASON1C 
propose des mecaniques de marque 
Nippon (avec un nom comme cela, 
pas de doutes possibles sur l'origine 
geographique !) au prix de 2699 FF 
TTC sans controleur (controleur 
compatible Apple). NDLR: tous les 
prix de cette rubrique sont indiques 
TTC, sauf indication contraire. 

Si vous patientez encore quelques 
mois, vous aurez alors la possibility 
d'acheter des lecteurs dans la gamme 
3pouces (3", 3"l/2, 3.9"... puisqu'il 
n'y a pas encore de standard re- 
connu par les differents construc- 
teurs). AMDEK, par exemple, pro- 
pose des lecteurs 3" compatibles 
Apple II avec une capacite de 286K 
pour un prix de $299. HAYTECH 
propose avec le syteme CYBORG un 
lecteur 3 pouces de 1.2 Megaoctets, 
qui inclut son propre systeme d' ex- 
ploitation. Le prix de base du lecteur 
est de 5699 F mais il semble qu'il 
faille prevoir interfaces et modules 
d'extension en plus. En outre, les 
CYBORGs ne sont pas encore dispo- 
nibles sur Apple. 

Les imprimantes 

L'imprimante TOSHIBA QL4000 est 
une imprimante a aiguilles hors du 
commun. De par sa qualite d' impres- 
sion (tete a 24 aiguilles de 0.2 mm 
de diametre), elle entend s'imposer 
dans le domaine de l'impression 
"qualite courrier". Ses atouts face 
aux imprimantes a marguerite tien- 
nent essentiellement a sa rapidite : 
100 cps (contre 40, vitesse moyenne 
habituelle des imprimantes a margue- 
rite) et aux possibilites de jeux de ca- 
racteres (ecriture elargie, espace- 
ments variables...). Elle est bien 
entendu utilisable pour les listings (vi- 
tesse 192 cps) et pour le graphique. 
Son prix (18000 FHT) la classe net- 
tement du cote des imprimantes a 
marguerite. La QL4000 est importee 
par M3C. 

Le domaine des imprimantes couleur 
est en rapide evolution. Apres la 
technologie a impact sur ruban multi- 
colore, voici les imprimantes a jet 
d'encre. Elles disposent de 3 ou 4 re- 
servoirs d'encre (cyan, magenta, 
jaune et noir), permettant par combi- 
naison d'obtenir les autres couleurs. 
Parmi les modeles disponibles, la 
Canon A-1210 attire immediatement 
1' attention. Alors que les autres impri- 
mantes sont vendues a des prix va- 



riant entre $5,000 et $12,000, la A- 
1210 vaut $795 et est destinee au 
marche des ordinateurs individuels. 
Ses performances sont tout a fait ho- 
norables : 40 cps et une resolution 
de 30 points par centimetre. Nul 
doute qu'elle aura beaucoup de 
succes. 

Synthese vocale et 
musicale 

Depuis la carte Supertalker de Moun- 
tain Hardware, la premiere a donner 
la parole a l'Apple, jusqu'a la Mo- 
ckingboard de Sweet Micro Systems, 
l'une des dernieres sorties, de nom- 
breuses cartes et realisations ont vu 
le jour. Les circuits utilises dans les 
applications de cout modere sont ge- 
neralement des circuits de generation 
de phonemes. Malheureusement, en 
raison de la nationality des fabricants 
de semi-conducteurs, la generation 
de phrases en frangais a partir de 
phonemes anglais n'est pas des plus 
reussies. 

Le CNET (Centre National d' Etudes 
des Telecommunications) a mene 
depuis plusieurs annees de nombreu- 
ses recherches appliquees a la syn- 
thase de parole. Le resultat, fruit de 
la collaboration entre les chercheurs 
du CNET et la societe AML s'appelle 
Prosit 4000. C'est un boitier qui se 
connecte a une interface serie et qui 
genere une sortie vocale d'apres le 
texte envoye. II contient 108K de 
memoire dans laquelle sont inscrites 
les regies phonetiques du frangais et 
les bibliotheques de routines. Le Pro- 
sit 2000 est une version "degradee" 
qui se limite au traitement de voca- 
bulaire compresse, stocke par avance 
dans l'ordinateur. Prix approximates : 
6500 FHT pour le modele 2000 et 
10500 FHT pour le 4000. 

Autre realisation frangaise, la carte 
Porte-Parole realisee par Ediciel. But 
recherche : permettre la synthese de 
texte (conversion directe du texte en 
parole) a un prix abordable. Le logi- 
ciel devrait etre pret au debut de 
l'annee prochaine. La carte existant 
deja, elle a ete commercialisee en 
avance avec pour seule application 
actuelle le langage Edi-Logo : Logo 
en frangais et doue de la parole (je 
n'ai pas pu identifier l'accent - pari- 
sien, marseillais, chtimi... - mais une 
chose est sure : ga ne ressemble pas 
a un texan parlant frangais !). Nous 
attendons done avec interet les pro- 
chains programmes prevus pour cette 
carte. Carte Porte-Parole : 1395 F - 
Edi-Logo : 1490 F. 



Jean-Frangois Duvivier 

Dans le domaine sonore et vocal, 
l'une des dernieres cartes sorties 
s'appelle la Mockingboard. En fait, 
sous ce vocable se cachent 4 cartes 
differentes : Sound I, Speech I, 
Sound II et Sound/Speech I combi- 
nant des possibilites sonores et voca- 
les. Au point de vue parole, la puce 
utilisee est le SC-01 de Votrax, dont 
les qualites ne sont plus a demontrer. 
C'est le circuit utilise par le Votrax 
personal speech system. Le cote so- 
nore est pris en charge par le AY- 
8910 de General Instrument, circuit 
que Ton retrouve un peu partout 
(cartes ALF, Vista, Arcade Board...) 
et qui permet la generation de musi- 
que (3 voies) et de bruitages (explo- 
sions, tirs, lasers...). Mais le gros inte- 
ret des cartes Mockingboard reside 
dans les accords passes entre Sweet 
Micro Systems (realisateur des cartes) 
et les principales societis de creation 
de logiciels de jeu, afin de permettre 
a ces dernieres d'utiliser les possibili- 
tes de la carte. De nombreux jeux 
sont ainsi transformes par la presence 
d'une Mockingboard : Thunder- 
bombs, Pie man, Zaxxon... Au fait, 
connaissez-vous Zaxxon ? La preci- 
sion du graphisme et la rapidite 
d' evolution m'ont ebahi ! (je ne pen- 
sai pourtant plus que ce soit possi- 
ble...). Pour en revenir a notre oi- 
seau moqueur (mocking bird), je ne 
sais pas qui l'importe en France. 
Mais je pense qu'au SICOB, date a 
laquelle paraitra ce numero de 
Pom's, vous pourrez certainement en 
voir (et en ecouter) de nombreuses 
demonstrations. A titre indicatif, le 
prix americain de la carte 
Sound/Speech I est de $179. 

Les cartes 

Toujours plus dans le domaine des 
cartes memoire! Macrotch presente 
Diskulator, une carte memoire exten- 
sible de 64 a 512K. Legend de son 
cote introduit la S-Card (de 64K a 1 
Mega) que vous pourrez trouver chez 
BIP. 

Pour les mordus d'audiovisuel, signa- 
lons que la societe Electrosonic 
commercialise le "Systeme 4000" 
permettant, a partir d'un Apple ou 
de tout autre ordinateur possedant 
une sortie serie, la gestion de 24 pro- 
jecteurs de type Kodak Caroussel. Le 
programme ESCLAMP permet de 
composer tres facilement le montage 
de diaposirives en unlisant toutes les 
possibilites de ce type de projec- 
teurs : fondus a vitesse variable, scin- 
tillation, niveaux de lumiere program- 
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mables... II est bien entendu possible 
de synchroniser le programme avec 
le son grace a 1' utilisation d'une piste 
d'horloge generee par une carte hor- 
loge indue dans 1' Apple. J'ai eu I' oc- 
casion de voir une demonstration sur 
neuf projecteurs : le resultat est tout 
simplement epoustouflant ! 

La carte Dumpling importee par SO- 
F1TEC est une carte d' interface paral- 
lel graphique haute resolution 
compatible sans changement de 
ROM avec de nombreuses impriman- 
tes du commerce (changement par 
switches). Une trentaine de comman- 
des, dont copie d'ecran, rotation, in- 
version, double frappe, double for- 
mat, ... 

Claviers 

La mode est aux claviers detacha- 
bles. Keytronic par exemple propose 
son clavier KB-200 qui ressemble fu- 
rieusement a celui de 1' IBM-OP. Cla- 
vier numerique, touches de fonc- 
tions, plus de 80 touches pour ce 
clavier detachable qui se branche a 
la place du clavier Apple II. Prix : 
$298. 

D-TACH de Innovative Micro Goo- 
dies est un clavier separe pour Apple 
II ou He. II utilise le clavier Apple 
existant qui est integre dans un cof- 
fret muni d'un cable extensible. Prix : 
$98. 

PRO-100 de Amkey propose comme 
son nom l'indique un clavier de 100 
touches (a quand PRO-200 ?). Parmi 
les touches ajoutees : 18 touches de 
fonction, 25 touches de commande 
Basic et DOS (Catalog, Run, List, 
New...) et 22 touches Visicalc (Insert 
column, Delete, Replicate, Print...). 
Prix : $265 (pour Apple II seule- 
ment). 

Enfin, Executive Peripheral Systems 
propose EPS Keyboard, clavier re- 
configurable par modules enficha- 
bles. Ces modules permettent d' avoir 
des touches de fonction preprogram- 
mees pour Visicalc, Applewriter II, 
Screenwriter II, Wordstar... Prix : 
$349. 

Autres peripheriques 

IDEN propose un joystick, modele 
YT, compatible Apple II et//e, avec 
une manette a centrage automatique 
et deux boutons. Le tout pour 345 
FF, Pensemble etant fourni dans un 
boitier metallique robuste. 

Micro-processeurs 

Le sigle 6502 vous dit-il quelque 
chose? Bien sur, c'est le micropro- 
cesseur utilise dans l'Apple. Mais 

68 



voici que plusieurs fabricants de 
semi-conducteurs presentent un nou- 
veau circuit : le 65C02. Le "C" in- 
corpore au milieu indique que la 
technologie utilisee est le CMOS, 
permettant une consommation tres 
faible. Le 65C02 ne consomme envi- 
ron que 10% de ce que necessite le 
6502. L'avantage est enorme pour 
les micro-ordinateurs portables (ali- 
mentation sur batteries) mais egale- 
ment pour des questions de fiabilite : 
moins de puissance consommee 
moins de chaleur et plus de fiabilite. 

Mais le principal interet du 65C02 re- 
side dans ses caracteristiques logiciel- 
les : totalement compatible avec les 
instructions existantes du 6502, il 
permet d'en utiliser de nouvelles. 59 
nouveaux codes operation ont ete 
crees. lis se classent en deux parties : 

• de nouveaux modes d'adressage 
sur des instructions deja existantes 
dans le 6502, tels que les modes 
indirects (sans indexation) et indi- 
rect absolu indexe. 

• de nouvelles instructions dont 
BBR (Branch on Bit Reset), BBS 
(Branch on Bit Set). BRA 
(BRanch Always), PHX (PusH X 
onto stack), PHY (PusH Y onto 
stack),PLX (PulL X from stack), 
PLY (PulL Y from stack), RMB 
(Reset Memory Bit), SMB (Set 
Memory Bit), STZ (STore Zero), 
TRB (Test and Reset Bit), TSB 
(Test and Set Bit). 

C6te compatibility, aucun probleme 
pour les possesseurs d' Apple /// et He 
qui peuvent directement remplacer le 
6502 par un 65C02 et profiter ainsi 
des avantages de ce circuit. A noter 
que les nouvelles versions d'assem- 
bleurs prennent en compte ces nou- 
velles instructions. La derniere ver- 
sion de Merlin supporte toutes les 
instructions du 65C02. Les mises a 
jour de SC-Assembler et ORCA sont 
disponibles. 

Malheureusement, je n'ai cite plus 
haut que l'Apple/// et//e. Que se 
passe-t-il pour le II ? II semble qu'il y 
ait des problemes relatifs au sequen- 
cement interne et aux acces memoi- 
res. Raison : le 65C02 est plus rapide 
et ne maintient pas les donnees assez 
longtemps sur le bus, ce qui provo- 
que en consequence des pertes de 
donnees. Personne n'a encore trouve 
de solution simple permettant d' utili- 
ser un 65C02 sur Apple II. La solu- 
tion viendra peut-etre des prochaines 
revisions du 65C02, permettant de 
resoudre ce probleme. 

On peut penser que le 65C02 rem- 
placera le 6502 sur les nouvelles ma- 
chines. Peut-£tre verra-t-on une nou- 
velle revision du He avec un 65C02, 
ce qui permettrait de diminuer le 
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code (environ 10 a 15 %) et done 
d'augmenter la rapidite. 

Ceux qui sont interesses par le 
65C02 peuvent consulter 1' excellent 
article de Roger Wagner page 199 
dans Softalk de juin 83, article qui 
fait le tour complet des possibility du 
65C02. 

Logiciel 

Nous venons de voir arriver la nou- 
velle version de CX Multigestion 
(Controle X), CX Base 200 et CX 
Texte. Nous retrouvons le systeme 
de gestion de fichiers deja analyse 
dans Pom's 5, avec des ameliora- 
tions allant dans le sens de nos re- 
marques a cette epoque, et avec une 
possibility de traitement de texte 
(ligne par ligne). II est possible d'ac- 
querir separement le traitement de 
texte, la gestion de fichiers ou la ver- 
sion 200 autorisant la gestion multifi- 
chiers. Enfin un produit "bien de 
chez nous", et en progres par rap- 
port a la premiere version. 

KA vient de sortir la documentation 
en frangais du programme de gestion 
de fichiers Omnis, dont nous ferons 
certainement l'analyse un jour. 
Omnis fonctionne sur II, He, III. Le 
prix, variable selon le materiel, est de 
l'ordre de 4140 FF. Nos seuls pro- 
blemes pour parler de ce programme 
sont le manque de temps et de 
place ! 

Informations 

Le magazine americain Fortune pu- 
blie tous les ans la liste des 500 plus 
grandes entreprises americaines. 
Apple etablit un nouveau record en 
faisant son entree dans la liste (en 
411eme position) seulement sept ans 
apres sa creation. A noter que Mike 
Markkula, jusqu'alors president d' Ap- 
ple, vient de laisser la place a John 
Sculley, qui presidait auparavant 
Pepsi-Cola. Quant a IBM, tout va 
pour le mieux. La firme passe de la 
8eme a la 6eme place... A titre de 
comparaison, le total des ventes 
d' Apple durant les 6 premiers mois 
83 represente a peu pres la moitie 
du benefice d'IBM pour le premier 
trimestre ! 

Nous vous avions annonce une ana- 
lyse du Golem, qui n'a pu etre reali- 
see pour des raisons comprehensi- 
bles. Apple a gagne un jugement 
interdisant la presentation du Golem 
a MicroExpo et sa vente, jusqu'au ju- 
gement definitif. La preuve a ete ap- 
portee que plus de 99% du contenu 
des ROMs etait identique, ce qui est 
une excellente raison de compatibi- 
lite... 

"Music Programs for the Apple 
Computer" est un catalogue rassem- 
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blant les programmes et les cartes 
musique sur Apple : 123 program- 
mes, 13 cartes, 46 fabricants... Dis- 
ponible pour 5$ (port) aupres de 
Denis C. Moreen-College of Notre 
Dame - Department of Music - Bel- 
mont CA 94002. 

La troisieme edition de "The Blue 
Book for the Apple Computer" de 
W1DL Video Publications est parue. 
Ce catalogue fait le point de tous les 
produits destines a 1' Apple. Les chif- 
fres sont eloquents : 914 pages, 
4600 produits, 720 adresses de fabri- 
cants... Heureusement, plus de 100 
pages d'index (mots-cles, listes alpha- 
betizes, par firmes...) permettent de 
s'y retrouver. Prix $24,95. 

Avis aux concepteurs de systemes : 
le langage C est maintenant disponi- 
ble sur Apple grace au compilateur 
Aztec C II de MANX. Prix non men- 
tionne. 

Ediciel est un GIE (Groupement d'ln- 
teret Economique) entre Matra et 
Hachette qui commercialise des logi- 
ciels et materiels sur Apple. Une pre- 
miere vague de 5 programmes et 
une carte (la carte Porte-Parole dont 
nous vous parlons plus haut) est sor- 
tie en mai. Des jeux (Galaxie-L, Tri- 
jeu et Naja), une version frangaise et 



sonore de Logo : Edi-Logo et Maths 
1, la premiere disquette d'une collec- 
tion d'exercices diriges par ordinateur 
et destines aux candidats au Bacca- 
laureat. Maths 1 s'interesse plus par- 
ticulierement aux logarithmes et ex- 
ponentielles, ainsi qu'aux formes 
indeterminees et limites. Ediciel 
compte inscrire a son catalogue une 
vingtaine d'autres produits d'ici la fin 
de T'annee. 

Adresses 

AMDEK Corp. - 2201 Lively Blvd - 
Elk Grove Village IL 60007 

Amkey - 202 Ballardvale St. - Wil- 
mington MA 01887 

AML - 10 rue Lionel Terray - 92500 
Rueil-Malmaison - 749.14.00 

BIP - 22 rue Joseph Dijon - 75018 
Paris - 255.44.63 

Controle X - Tour Maine Montpar- 
nasse - 33 avenue du Maine - 75755 
Paris Cedex 15 - 538.98.87 

Ediciel - Rue J. -Pierre Timbaud - 
BP 66 - 78390 Bois d'Arcy 

Electrosonic - distribue par Techni- 
tome - 118 rue de Crimee - 75019 
Paris - 202.37.13 



Executive Peripheral Systems - 

800 San Antonio Road - Palo Alto 
CA 94303 

HAYTECH - 68 Bd de Port-Royal- 
75005 Paris - 354.86.66 

Innovative Micro Goodies 

34732 Calle Fortuna - Capistrano 
Beach CA 92624 

IDEN - 34 bis rue Sorbier - 75020 
Paris - 358.44.35 

KA - 212 rue Lecourbe - 75015 
Paris -533.13.50 

Keytronic - PO Box 14687 - Spo- 
kane - Washington 99214 

MANX - Box 55 - Shrewsbury NJ 
07701 • ' 

M3C - 12, place de Seine - La De- 
fense 1 - 92400 Courbevoie - 
774.57.80 

Pentasonic - 5 rue Maurice Bourdet 
- 75016 Paris - 524.23.16 

SOFITEC - 207 rue Gallineni - 
92100 Boulogne - 605.88.78 

Sweet Micro Systems - 150 

Chestnut Street - Providence RI 
02903 

WIDL Video Publications - 5245 
West Diversey - Chicago IL 60639 




EPIST01E 

VOTRE TRAITEMENT 
DE TEXTE FRANCAIS 
SUR APPLE ® 
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ogiciel de traitement de texte francais facile 
et puissant sur Apple II et Apple // e. 
Des menus clairs et simples. 

Une centaine de commandes puissantes, faciles 
a utiliser. 

S'adapte a toutes les imprimantes matricielles ou 
a marguerite, et cartes 80 colonnes. 

Permet I' integration de tableaux crees par 
VISICALC®, MAGICALC®, MULTIPLAN®, etc.. 

Demonstration chez votre revendeur Apple 
Prix H.T. 2 000 F (TTC 2 372 F) 
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Utilise 

loutes les tonctions 
des imprimantes 



66 rue Castagnary 75015 Paris 530.05.28 
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Une informatique de gestion adaptee aux besoins des gestionnaires el realisee par des 



gestionnaires. 



ETUDIE 

FORME 

REALISE 

LIVRE 



» opportunity d'utilisation de I'outil micro-informatique 

» integration cntre informatique traditionnelle et personnelle 

> politique de la communication dans 1'entreprise 

formation a I'utilisation de la micro-informatique 

> realisation de programmes a la demande 

' livraison de systemes cles en main, avec des progiciels de 
GESTION DE STOCK, PAYE, COMPTABILITE. 



Nous sommes gestionnaires avant d'etre informaticiens. L'informatique doit s'adapter a 1'homme, et non l'inverse. 
L outil micro-informatique repond particulierement bien a ce souci de qualite et d'efficacite du travail, 

dans des conditions conviviales. 
Nombreuses references en informatique traditionnelle - divers materiels - et en informatique individuelle - principalement 

Apple - aupres des PME et des groupes industriels. 

I OgttlO S.a. Centre La Chataigneraie - 29, avenue de Versailles - 78170 La-Celle-St-Cloud - Tel. : (3) 918.13.07 



f MODEMS TELSAT 



1 



L'ACCES DE VOTRE MICRO ORDINATEUR AUX BASES DE DONNEES 

PAR LE RESEAU TELEPHONIQUE 





TELSAT 440 

Modem 300 bit/s full duplex 



TELSAT 640 

Modem 600/1200 bit/s full duplex 



Ces produits font partie de la gamme complete de modems, multiplexeurs et 
equipements de reseaux de transmission de donnees TELSAT distribues par 



TEL0 



international 69-71, rue du chevaleret 75013 paris 

Tel. 58414 75 Telex 204120F 
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Jonglez avec votre catalogue 

Olivier Herz 



Le petit programme ci-dessous lit 
votre catalogue et le place dans un 
tableau de chafnes de caracteres. La 
ligne 10 realise 1' initialisation indis- 
pensable : il est preferable de la met- 
tre au tout debut du programme. At- 
tention : la variable N doit Stre 
superieure au nombre maximum de 
fichiers sur une disquette, sous peine 
de graves ennuis. 

Les lignes 30 et 40 doivent etre exe- 
cutes chaque fois qu'un catalogue 
est lu. Les lignes 20 et 50 ont ete 
placees la a titre de demonstration. 

A partir de ce programme, chacun 
peut constituer le programme de son 
choix et se creer un programme de 
MENU personnalise en Applesoft 
sans effort. Ainsi, en ajoutant la ligne 



5 et la ligne 60 ci-dessous, on obtient 
une liste en 3 colonnes des fichiers 
memorises sur une disquette. 

NDLR : ne pas utiliser ce programme 
quand le Program Line Editor (PLE) 
est actif. 

5 INPUT "NO* DE LA DISQUETTE : ";«3I>I 
t 



60 BS = " 

": -PRINT D*"PR#1": PRINT 
"DISQUETTE : ";NCK$: FOR J = 1 
TO I + 1 STEP 3: FOR K = TQ 
2: PRINT LEFT$ (ft»(J + K) * 
B$,26);: NEXT : PRINT " ": *£X 
T 



Contenu des variables 

A$(0) : longueur de 19 caracteres. 
Position Contenu 

1 CR (retour chariot) 

3-13 CR 

14 espace 

15-17 numero de volume 

18 CR 

19 CR 



A$(I) pour I>0 : 38 caracteres. 



Position 


Contenu 


1 


espace ou * 


2 


T, B, I ou A 


3 


espace 


4-6 


faille 


7 


espace 


8-37 


nom du fichier 


38 


CR 



Programme CATALOG -> TABLEAU 



10 N = 100: DIM AS(N):AS = "300:38 48 84 
FD AO OO 91 FE E6 FE DO 02 E6 FF 
68 A4 FD 60 A9 AO 60 N D823G": F 
OR I = 1 TO LEN (AS): POKE 511 ♦ 
I, ASC ( MIDS < AS ,1,1)) * 128: N 
EXT : POKE 72,0: CALL - 144 
20 TEXT : HOME : PRINT "ENTREZ VOTRE DI 
SQUETTE ET": PRINT " APPUYEZ SUR 
UNE TOUCHE": POKE - 16368,0: WAI 
T - 16384,128: POKE - 16368,0 
30 A = FRE (0):AS = "": FOR 1=1 TO 19 



:as = as ♦ " ■■: next : for i = n 

TO 1 STEP - l:AS(I) = AS * AS: N 

ext :as<0) = as + -":a = peek <i 
07) ♦ peek (108) » 256 ♦ 8: poke 

254, PEEK (A): POKE 255, PEEK (A 
* 1) 

40 DS = CHRS (4): PRINT DS"NOMONCIO" : P 
OKE 54,0: POKE 55,3: POKE 56,18: 
POKE 57,3: CALL 1002: PRINT DS"CA 
TALOG": PRINT DS"PR#0": PRINT DS" 
IN#0" 

50 PRINT AS(0);: FOR 1=1 TO N: IF MI 
DS (AS(I),2,1) < > " " THEN PRI 
NT AS(I) ; : NEXT 



DISQUETTE : Disquette 
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• A 


003 


HELLO 


»B 


Oil 


HELL01 


• B 


036 


HELL02 


A 


004 


MENU 


•B 


002 


BLOAD TEXT 


B 


006 


MO 


B 


006 


Ml 


B 


006 


M2 


B 


006 


M3 


B 


006 


M4 


B 


006 


M5 


B 


006 


M6 


B 


006 


MENU6 


B 


006 


M7 


B 


002 


HCT.OBJ 


* A 


Oil 


UFS 


• B 


002 


SUPER PRINT 


»A 


003 


SUPER PRINT DEMO 


*B 


Oil 


SUPER PRINT. S 


•A 


009 


EDITEUR- HGR 


«A 


004 


DESSINATEUR-HGR 


A 


013 


PROGR. COMPOS 


A 


034 


PROGR. EDIT 


*T 


002 


EDIT 


»T 


002 


COMPOS 


*B 


004 


PR0GR48K 


«A 


003 


CATALOG- > TABLEAU 


A 


007 


LI-TEXTE 


B 


012 


GRAFTEXT . S 


A 


009 


GRAFTEXT 


B 


005 


FRE ( 2 ) 


B 


019 


RIA.SCE 


B 


007 


RIA.OBJ 


B 


021 


WRMA.SCE 


B 


007 


WRMA.OBJ 


B 


OlO 


VAR.SCE 


B 


004 


VAR.OBJ 


A 


004 


INIT 


A 


Oil 


TEST . RI A . WRMA . VAR 


A 


004 


LIT-TF 


*B 


015 


PROM P5A.S 


A 


002 


CAPTURE 


A 


005 


CREALIST 


A 


004 


LISTING 


A 


025 


PUZZLE 


-B 


009 


TRANS 


-B 


002 


ONERR-128 


A 


005 


AD AP -PUZZLE- CO ULEUR 


A 


002 


BASIC -PASCAL 


B 


007 


BASPAC.0BJ1 


B 


002 


MOVEO 


B 


044 


SAISIE.TEXT 


B 


004 


FONDU ENCHAINE.S 


B 


002 


FONDU ENCHAINE 


B 


034 


ERGUN.PIC 


* A 


004 


WAIT 
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Courrier des lecteurs et des clubs 

Olivier Herz 



Messages 

J'ai ite ties interesse par I'article 
Graphique, quand tu nous tiens ... 
du Pom's 7, et je me permets de 
proposer les modifications suivantes 
pour une imprimante MX-82IIIF/T. 
D'abord, en inserant la ligne 6025 
D=0, on evite de conserver la 
commande de double format si une 
autre impression est lancee. 

Si 1'on supprime la ligne 5200. on 
augmente le nombre de possibilites, 
en particulier on peut imprimer soit 
la page 1. soit la page 2, soit une 
combinaison logique en premiere co- 
lonne a un seul exemplaire : il suffit 
pour cela d'ajouter la ligne 5555 IF 
P=2 THEN 5580. 

En fin, avec les modifications ci-des- 
sous, on peut imprimer cette pre- 
miere page n'importe ou horizontale- 
ment : 

5342 IF D = AND L = 1 AND P = 3 OR 

D < > THEN 5350 

5343 X = 1 

5344 PRINT 

5345 VTAB 22 





5347 


INPUT "MARGE ft GAUCHE EN COL0NN 
E :»,C 




6013 


IF X = THEN 6019 




6014 COEFF = COEFF + 126 




6015 


FOR I * 1 TO 24 




6016 


PRINT TAB( C) 




5017 


POKE 1529,255 




6018 


VTAB I 




6019 


POKE 1913, COEFF 




6020 


PRINT 0$ 




6021 


IF X = THEN 6027 




6022 


PRINT CHR$ (27); CHR$ (65); CH 






R* (8) 




6023 


POKE 1529,0 




5024 


PRINT ZER0$ 




6025 


NEXT I 




5026 


PRINT CHR$ (27); CHR* (50) 




6027 


X = 0:D = 



Felicitations pour la qualite de votre 
publication. 

Alain Meizoz - 18 rue de la Poterie - 
1202 Geneve - Suisse 

Le programme HELLO de Tran Van 
(Pom's 6 et 7} detruit-la page 3, 
comme je l'avais explique dans le 
courrier des lecteurs du Pom's 7. La 



modification que je vous propose ci- 
dessous n'empeche pas la destruc- 
tion de la page 3, mais elle la recons- 
truit apres que le programme ait ete 
charge. Les lignes du programme 
n'etant pas numerotees, j' explique 
comme je peux. 

Dans le Pom's 6, page 33, 4eme 
ligne en haut et a gauche, remplacer 
le JSR CLEANUP par JSR RES- 
TORE. A la fin du programme, ajou- 
ter: 



RESTORE JSR 
PHP 
LDX 

LOOP LDA 
STA 
DEX 
BPL 
LDA 
STA 
EOR 
STA 
LDA 
STA 
PLP 
RTS 



CLEANUP 

#$2F 

$9E51,X 

S03D0.X 

LOOP 

S9E53 

S03F3 

S03F4 
S9E52 
S03F2 



Note : aucune des caracteristiques du 
programme n'est modifiee; en parti- 
culier, il tient toujours en 6 secteurs. 
Ce n'est cependant plus OFCE qu'il 
faut placer en AF.BO pour sauver par 
BSAVE, mais 0D20. 

Pour ceux qui n'ont pas le Big Mac 
ou ne veulent pas reassembler, void 
le patch correspondant a la modifica- 
tion : 

0C21 : 20 FE 0C 

0CFE : 20 7B 9B 08 A2 2F BD 51 
9E 9D DO 03 Cfl 10 F7 AD 
53 9E 8D F3 03 49 A5 8D 
r 4 03 AD 52 9E 8D F2 03 
28 60 

Andre Babeanu - 1 rue de la Libera- 
tion - 78350 Jouy en Josas 

Au sujet de mon extension du moni- 
teur (Pom's 8), ma curiosite a ete pi- 
quee au vif par votre remarque page 
41 concernant le decalage du buffer 
clavier. La solution est simple au ni- 
veau de Tassembleur, mais au niveau 
objet ... Neanmoins, la void par rap- 
port au code source publie : 



1. Supprimer la ligne 160 (MONZ4 
LDX #1) et placer 1' etiquette 
MONZ4 devant la ligne 161 (JSR 
NXTCHAR+3). 

2. Inserer les deux lignes PLA puis 
TAX entre les lignes 158 et 159. 

3. Inserer les deux lignes TXA puis 
PHA entre les lignes 148 et 149. 

4. Inserer LDX $#00 entre les lignes 
137 et 138. 

Thierry Le Tallec - 69 rue Sauveur 
Tobelem - 13007 Marseille 

J'ai developpe un programme reali- 
sant le traitement complet des rega- 
tes de voilier ou de planche a voile. 
Ceux qui desirent se renseigner en 
vue de 1' acquisition du programme 
peuvent me contacter. 

Jacques Roullier - 3 rue des Pins - 
66140 Canet Plage 

J'aimerais contacter les abonnes ha- 
bitant ma region Aix les Bains - Sa- 
voie; je m'occupe d'un club de 
micro-informatique. 

Thierry Jan Sperry - Cidex 50 le 
Montcel - 73100 Aix les Bains 

Je recherche un club regroupant les 
possesseurs d' Apple /// interesses par 
les applications professionnelles. En 
existe-t-il un ? Le cas echeant, les 
personnes interessees peuvent me 
contacter en vue de la creation d'un 
tel club. 

Claude Riou - Le Saint Andre - 48 
avenue de Lattre de Tassigny - 
83000 Toulon 

Je cherche des personnes ou des so- 
cietes capables de relier des Apple II 
a des ordinateurs Cll-HB (61DPS et 
DPS4). 

F. Chastagner - 29 route de Gorges - 
44190 Clisson 




72 



Pom's n" 9 



Carte EPROM/RAM/Timer/Port Parallele 

Un de nos plus fiddles lecteurs et auteurs, Thierry Le Tallec, vient de mettre au point une carte peripherique pour 
Apple II. Cette carte, qui fonctionne indifferemment dans n'importe quel slot, comprend : 256 octets de memoire 
RAM, 4 supports 24 broches acceptant des memoires vives 2K ou des memoires mortes, EPROM 4K (moniteur 
etendu, un programme de copie), interruptions NMI, VIA 6522. 

D' aspect exterieur tres soigne, cette carte n'a rien a envier aux cartes distributes par les "grands" fabriquants. 

Nous avons aussi eu 1' occasion de tester une ROM de Thierry Le Tallec pour la creation de caracteres minuscules sur 

1' Apple II, qui fonctionne parfaitement bien. 

Pour tous renseignements, contacter Thierry Le Tallec - 69, rue Sauveur Tobelem - 13007 Marseille. 



Club Orion 

Travaillant depuis juillet 83 en etroite 
collaboration avec le DataClub de 
Dinant (B), le club Orion continue 
ses activites. II dispose a ce jour 
d'une programmatheque de plus de 
200 programmes sur disquette : as- 
tronomie, graphisme, jeux, radio 
amateurs, mathematiques, utilitaires, 
traitement de texte et de fichiers, ... 
Ces programmes sont destines a etre 
echanges avec les amateurs ou qu'ils 
se trouvent. 

Une station radio-amateur, ON5UP 
(Andre Tarte) est a present ouverte. 



Alexandre Duback 

Recueil No 1 de Pom's, Editions 
MEV et Editions du PSI - 200 pages, 
120 FF. 

Apres tout, il faut peut-etre aussi par- 
ler du recueil des quatre premiers 
numeros de Pom's. Ce livre, au for- 
mat de la revue, reprend la quasi-to- 
talite des articles des 4 premiers nu- 
meros de Pom's. Le sommaire 
thematique publie dans le numero 8 
de la revue vous donnera une idee 
precise de ce que vous pourrez y 
trouver. 

Les trois disquettes d'accompagne- 
ment coutent 150 FF et peuvent etre 
acquises separement. Elles repren- 
nent, selon la bonne habitude de 
votre revue preferee, tous les pro- 
grammes publies dans le recueil, 
agrementes d'explications comple- 
mentaires et, a l'occasion, d'exem- 
ples d'application. 

Comme nous ne pouvons reguliere- 
ment republier les memes informa- 
tions, nous conseillons vivement aux 
nouveaux possesseurs d' Apple de ne 
pas perdre le benefice de la lecture 
du Recueil. Au moins 90% de ce qui 
y est ecrit reste d'actualite. 

Guide de 1'Apple, de Benott de 
Merly, Edimicro, 68 FF par tome. 
Trois tomes sont prevus : L' Apple 
Standard, Les Extensions et Les 
Appplications. 



Des echanges avec le Canada ont 
deja eu lieu via les O.C. Enfin, le 
club est en mesure de realiser lui- 
meme les copies de programmes 
pour ses correspondants. 

Contacter Thierry Lombry - Club 
Orion - Tienne aux Pierres 94 - B- 
5150 Wepion - Belgique. 



Club Ma Pomme 

Reunion le 21 septembre : stockage 
de masse pour Apple II et III ; les dis- 



A ce jour, je n'ai xequ que les deux 
premiers tomes et limiterai done mon 
analyse a ceux-ci. Ces deux livres 
possedent une presentation agreable. 
Contrairement a ce que disent cer- 
tains revendeurs, ces ouvrages ne 
s'adressent pas aux debutants. Ce 
sont des ouvrages de reference, avec 
en supplement quelques exemples 
de programmes. 

Le tome I (168 pages) couvre a peu 
pres les memes sujets que "Clefs 
pour 1' Apple II" analyse dans le nu- 
mero 8 de Pom's. Sur ce plan, le 
tome I est moins exhaustif, et il y est 
plus difficile de retrouver une infor- 
mation donnee. En compensation, il 
a l'avantage de traiter de 1' Apple //e, 
ce que ne fait pas l'ouvrage de Ni- 
cole Breaud-Pouliquen, que je pre- 
fere cependant a celui de B. de 
Merly. 

Le tome II (200 pages), Les Exten- 
sions, est en fait un manuel du DOS 
3.3 pour ses 72 premieres pages, du 
Pascal UCSD pour 63 pages et de la 
softcard Z80 pour 48 pages. Les 13 
dernieres pages parlent de cartes 
d'extension. 

En conclusion, je trouve ces ouvra- 
ges bien faits, mais un peu a cheval 
entre l'objectif "livre de reference" et 
l'objectif pedagogique. Ce sont des 
ouvrages a bien feuilleter avant de 



ques durs, les cartouches, les sauve- 
gardes, les techniques d'avenir. Reu- 
nion a 19 heures au 110, avenue du 
General Leclerc, 75014 Paris. 

Ma Pomme - 6, rue Jauniere, 75016 
Paris. 



Informatique - Architecture 

Journees d' informations pour les ar- 
chitectes : 28 octobre, 25 novembre 
et 16 decembre. Adresse : 110, ave- 
nue du General Leclerc, 75014 
Paris. 



decider s'ils correspondent effective- 
ment a ce que Ton cherche. 

Assembly Lines : Apple II, manuel 
de programmation du 6502, de Ro- 
bert Wagner, aux IS Editions - 237 
pages, 120 FF. 

II s'agit la de la traduction en frangais 
du celebre ouvrage de Robert Wa- 
gner publie par Softalk. La presenta- 
tion aurait ete plus agreable si les 
textes avaient ete sortis sur une im- 
primante a marguerite au lieu d'une 
Epson FX80 (ainsi, les accents cir- 
conflexes et tremas sont ajoutes a la 
main, quand ils ne sont pas pure- 
ment et simplement oublies ...). 
L'impression de bricolage augmente 
quand je constate, sur mon exem- 
plaire, que les 4 pages d'introduction 
ont ete assemblies entre la page 4 et 
la page 5 ! On trouve sans difficulty 
des phrases telles que : "Les chiffres 
sont 100 bien sur," (sic) parvenant a 
cumuler en peu de mots du mauvais 
francais, de la mauvaise ponctuation 
et du mauvais orthographe. 

Sur le fond, il suffit de rappeler que 
l'ouvrage de Wagner est considere 
comme une reference aux Etats-Unis. 
Assembly Lines est un excellent ou- 
vrage pour lequel je regrette que 
l'editeur ne se soit pas offert les ser- 
vices d'un meilleur traducteur et n'ait 
pas investi assez pour parvenir a une 
presentation plus agreable. 



Bibliographie 
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mettez 
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Bon de commande 

a retourner sous pli affranchi 
aux Editions MEV 

49, rue Lamartine 
78000 Versailles 



*50FttcJ 



Quantite 


Taille 


Prix total 




36/38 










Total 





Ci-joint mon reglement 




pool's 



• la disquette HAIFA Source □ au prix de 55 F la disquette (cf. Pom's n° 5) 

• le logiciel H-BASIC □ au prix de 150 F (cf. Pom's n° 8) 

• recueil n° 1 de Pom's (n™ 1 a 4) 

□ avec ses 3 disquettes au prix de 270 F 

□ sans disquette au prix de 120 F 



□ les 3 disquettes seules au prix de 150 F. 



Montant 
TTC 



TOTAL : 



pom's 



Je desire recevoir : 

• les numeros de la revue Pom's □ 4 □ 5 fj 6 fj 7 □ 8 

au prix de 35 F le numero 


Montant 
TTC 


• le numero 9 de Pom's au prix de 40 F . 




• les disquettes d'accompagnement des numeros 

□1 D2 D3 D4 D5 Q6 D7 D8 Q9 
au prix de 55 F par disqupttP. 




Je desire m'abonner pour 4 numeros a partir du n° 
□ sans disquette an prix Hp 135 F 




□ avec disquettes au prix de 325 F 




TOTAL : 





Envoyez ce bon de commande et votre reglement a : 

Editions MEV - 49, rue Lamartine - 78000 Versailles 



Norn _ 
Adresse 



Ces tarifs comprennent I'envoi postal en France Metropolitaine, CEE et Suisse (voie aerienne exceptee) 

Pour envoi par avion : nous consulter 



SPID VOUS OFFRE 
SA r SELECTION DE 
LOGICIELS. 

Une selection mondiale de 392 programmes 
pour : APPLE - ATARI - IBM - CBM -TRS- Sharp PC 
EPSON - Sinclair ZX81 et Spectrum 
0RIC1 -Victor Lambda - 
Dragon. 
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JCR,DES MICRO-ORDINATEURS 

PROFESSIONNEL ET GRAND PUBLIC. 



[apple computer 




APPLE II E 

Entierement compatible avec 1' Apple II 
il possede un clavier etendu Azerty/ 
Qwerty et une memoire de 64 K oct. 
d'origine. 

Dejd de nombreux logiciels et exten- 
sions disponibles sur ce nouvel ordi- 
nateur. 



VISICORP 

Une serie de logiciels d'aide a la deci- 
sion : Visicalc - Visiplot - Visidex - Visi- 
file. 




APPLE III 
L'outil profession 

inter!? 
possibk . 
Profile. £ 
antirefle' 



MO'* 



Pri- 



sen 

ii YOU. 



y^llence. 
>isque 

i in 



i .on 
-rty. 



050 F 

mribaldi -oof 
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Cartes pour Apple II : 

U-RAM 16 K 890 F 

U-TIM carte horloge 1 090 F 

U-TERM carte 80 col 1 490 F 

U-Z80 carte CP/M 1 150 F 

CP/M pour U-Z80 750 F 

Microbuffer EPSON 16 K. ... 2 450 F 

Microbuffer ext. 64 K 3 300 F 

Clavier numerique 950 F 

Carte chat Mauve 1 400 F 

Carte EVE pour Apple II E 2 900 F 
Carte 80 col. TEXT A II E . . . 990 F 
Carte 80 col. + 64 K A II E 2 300 F 

Poignees de contr6le 185 F 

Joystick 380 F 

Carte Superterm 80 col 2 590 F 

Ventilateur Super Fan 850 F 

Carte memoire 64 K 2 590 F 

Carte memoire 128 K 3 950 F 

Produits consommables : 

Disq. SF/DD 3M les 10 210 F 

Disq. DD/DD 3M les 10 452 F 

K 7 vierges les 10 70 F 

Papier listing 80 col 290 F 

Papier listing 132 col 350 F 



— Catalogue gratuit sur demande — Credit 4-36 mois — Leasing 36-48 mois — detaxe a I'exportation. 



ORIC 1 

Un ordinateur pour tous de 16 a 48 K 
oct. RAM. 

16 couleurs en graphisme haute resolu- 
tioa 

Synthetiseur de son et interface paial- 
lele incorpores d'origine. 

080JJ 



48 K + manuel frantjais 
et coidon Peritel. 




^^T^^ I ^^^F ^> me Notre-Dame-de-Lorette 
W^KSk MtWtnHflL. 75009 PARIS 


59, rue du Docteur Escat 
13006 MARSEILLE 


313, rue Garibaldi 
69006 LYON 




feL: (1) 282.19.80 - Telex: 


290350 F 


Tel. : (91) 37.62.33 


Tel. : (7) 861.16.39 
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